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EDITORIAL 


Comme les précédents numéros, ce JPC arrive avec un retard important. Il suffit d’en regarder le 
sommaire pour en connaitre la raison. En effet, c’est la première fois dans l’histoire du club qu’un 
journal est entièrement rédigé par deux personnes seulement. 


Il y a quelques mois, nous avions pourtant cru à une réelle reprise des contributions. Depuis, certains 
habitués ont progressivement cessé de participer activement et les nouveaux venus n’ont pas 
"transformé" un essai qui avait pourtant été bien acceuilli par tous. On ne peut bien sur rien leur 
reprocher, mais pourquoi personne ne les ont remplacés ? 


Certains d’entre vous déclarent être incapables de faire un article, car ils ne sont pas des spécialistes 
de la programmation. Or, il n’est pas besoin d’être un dieu de la programmation (nous mêmes ne le 
sommes pas) pour donner son avis ou rendre compte de son expérience sur les programmes que l’on 
utilise habituellement. Par exemple, les articles tels que le transfert de fichiers sur HP48 ou la 
configuration de @ED1T parus dans ce JPC peuvent être très bien écrits par un non-programmeur et 
sont suceptibles d’intéresser le plus grand nombre. 


De l’autre côté, nous savons que certains adhérents ont développé des applications spécifiques à leur 
métier (ou leurs loisirs) mais ne nous les transmettent pas car ils les jugent trop spécifiques. Or, dans 
tous les cas en notre connaissance, nous savons qu’elles auraient intéressé au moins un adhérent. 
N'hésitez donc pas à nous contacter pour que nous discutions de la possibilité de les publier, ou au 
moins les rendre disponibles aux autres adhérents. 


Certaines autres personnes déclarent être incapables de rédiger un article, sur quelques sujet que ce 
soit. Pourtant, la plupart de ces déclarations sont incluses dans des lettres d’une ou deux pages 
manuscrites, parfaitement rédigées, et sans aucune rature, provenant de personnes ayant toutes passé 
un certain "bac français" quelques mois ou quelques années plus tôt ! Pourtant il nous semble bien 
que la rédaction d’un article est beaucoup moins stressante que la dite épreuve : vous décidez vous 
même du sujet (qui normalement vous passionne), vous avez beaucoup plus de temps pour le 
préparer, et surtout vous n'êtes pas noté à la fin ! 


Enfin, il est toujours arrivé que les adhérents acquièrent de nouvaux accessoires ou livres (mêmes 
connus) bien avant que les membres du bureau ne les aient en mains. Dans le passé, dès qu’un 
adhérent entrait en possession d’un objet, il s’'empressait de nous prévenir puis (si il était le premier) 
rédigeait un article de présentation. Aujourd’hui, tout le monde semble penser que ces objets nous 
tombent automatiquement dans les mains, alors que nous avons toujours eu le plus grand mal à nous 
faire prêter les nouveautés par les éditeurs ou distributeurs. Il est vrai que nous ne sommes pas 
diffusés à cent cinquante mille exemplaires... 


En résumé, quelque soit votre niveau ou vos centres d'intérêts, il existe toujours un moyen de 
participer à la vie du club. Si vous avez un doute quant à un sujet d’article ou sur la façon de terminer 
un article, n’hésitez pas à nous contacter, nous sommes toujours là pour vous conseiller. Et surtout, 
rapellez vous toujours que si le journal a un peu de mal actuellement à arriver à 32 pages, il dépassait 
allègrement les 50 il y a quelques années et tout le monde se félicitait de la variété des sujets abordés. 
Notre objectif est de revenir à cette pagination et cette variété, mais il nous est bien sûr impossible 
d'y arriver à quelques-uns seulement... 
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OUTILS POUR 
BIDOUILLEURS HP-28S 


Tout d’abord je dois remercier deux personnes qui se 
sont manifestées pour formuler l'intérêt qu’elles 
portent à cette rubrique : Paul Jebeïly qui a 
transformé sa HP-28 et qui, malgré son peu 
d'ancienneté dans le club, a su apporter déja sa 
contribution à JPC, puis Jean-François Garnier qui a 
participé sous plusieurs formes aux activités du club 
(articles, décompilateurs pour HP-28 et HP-48 
recherche des points d’entrées HP-28...). Quant aux 
autres possesseurs de HP-28 c’est, comme trop 
souvent dans les clubs, la léthargie, linertie et 
l'indifférence. 


Les programmes proposés ici sont des classiques pour 
tout curieux voulant aller au delà de ce que le 
constructeur a mis à notre disposition. Sauf le 
programme ADDR, ils ont déjà été publiés dans le livre 
Au centre de la hp28... et même PEEK et POKE ont vu le 
jour bien avant dans JPC où les auteurs ont fait leurs 
premières armes (certains oublient cela). Alors 
pourquoi une deuxième ou troisième parution ? A 
cela quatre raisons : 

- Bien que la HP-28 ait un âge respectable, certains 
de ses possesseurs sont de nouveaux venus dans le 
clan HP et le livre cité n’est plus disponible. 

- Les programmes déjà existants sont améliorables du 
point de vue vitesse et encombrement. On peut même 
dire que certains ne sont pas des modèles du genre 
bien qu’ils fonctionnent bien. 

- La programmation en System Rpl était totalement 
ignorée. Or celle-ci est économique en mémoire et 
rend les programmes plus rapides. 

- De nouvelles instructions utilisables en langage 
assembleur n'étaient pas connues des auteurs du livre. 
Celles-ci donnent des possibilités accrues de 
programmation. 


Même si l’on a la possibilité de transférer sur un PC 
les programmes HP-28, il est trés agréable d’en avoir 
le plus possible immédiatement à sa disposition. Par 
exemple le PEEK du livre cité occupe 162 octets en 
faisant encore appel à un programme de vérification 
des arguments (cHk qui lui-même prend 200 octets). 
Celui présenté ici ne prend que 102,5 octets, est 
autonome et aussi plus rapide. Les 32 K de Ram de 
nos machines nous obligent à être plus soucieux des 
économies que les propriétaires de HP-48SX et GX. 


Avertissement: depuis que j'ai relancé la rubrique 
HP-28 (JPC-84) pour l’assembleur et le System Rpl 
j'ai souvent fourni des commentaires explicatifs pour 
les différents programmes. Il ne m’est pas possible de 


donner à chaque fois, pour ce qui a déjà été expliqué, 
des commentaires aussi fournis. Aussi je vous renvoie 
aux précédents articles ou même aux programmes 
pour HP-48 lorsqu'il ne s’agit que d’une adaptation 
que je signale. 


Pour commencer voici un petit programme (inconnu 
du livre) qui donne l'adresse d’un objet mis sur pile. 
Avant la partie code les instructions sont en System 


Rpl. 


ADDR 
cksum #6625h 32 octets 


ASSEMBLE 
con(5) #02c67  * DOCOL 
con(5) #0c3e1 * CKINOLASTHD 
con(5) #10c2f  * BINT_O 
con(5) #04f3d  * TOTEMPOB 
con(5) #020e5  * SUAP 
con(5) #02c96 * DOCODE 
rel(5) fin 
a=dati a * adresse de l’objet 
di=di+ 5 * drop sur 
d=d#i a * cet objet 
c=dati a * adresse de # 0 copié 
cdiex * en mémoire 
di=di+ 10 * saute prolog + Len 
goving #044b5 * fait dati=a a 
* di=c 
* a=datO a 
€ do=d0+ 5 
# pc=(a) 
fin con(5) #02f90  * SEMI 


Remarque: on doit pouvoir faire beaucoup mieux en 
utilisant la routine d’adresse #17520h qui semble être 
soeur de PUSHhxsLoop pour HP-48. Avis aux amateurs. 


On sait qu’en mémoire le code hexa est inversé par 
rapport à celui que l’on transfère dans les divers 
registres de calcul. Aussi le très classique petit 
programme REV nous permet d’inverser l’ordre des 
caractères d’une chaîne (à la suite d’un PEEK par 


exemple. 


REV 

cksum # 417Ch 41 octets 

ASSEMBLE 
con(5) #02c67  * DOCOL 
con(5) #0c3el  * CKINOLASTID 
con(5) #0c7a5  * Dispatch1 
con(S) #071c7  * str ou THREE 
con(5) #02c67  * DOCOL 
con(5) #04f3d  * TOTEMPOB 
con(5) #0204a  * DUP 
con(5) #040c2 * LENS 











* DOCODE 


POP# 

=SAVPTR 

voir JPC 82 
page 28 pour 
Les commen- 
taires (HP-48) 


CRE 





Loop 2 
b 
b 
b 
datO=c b 
di=di+ 2 
decr b=b-1 a 
gonc Loop 
out goving #125e5  * =GETPTRLOOP 
fin con(5) #02f90  * SEMI 
con(5) #02f90  * SEMI 


Le troisième larron est PEEK qui permet de jouer les 
indiscrets c’est à dire traduire sous forme de chaîne le 
code hexadecimal pris à une adresse. 


PEEK 
cksum # C293h 102.5 octets 


syntaxe : 

niveau 2 : 1 entier binaire pour l'adresse 

niveau 1 : 1 entier binaire pour le nombre 
de quartets à prendre 


ASSEMBLE 
con(5) #02c67 * DOCOL 
con(5) #0c3cé  * CK2NOLASTUD 
con(5) #02c96  * DOCODE 
rel(5) fin 
c=dati a * adresse nbre de nib 
cdtex 
rstk=c * sauve adresse ler niv. 
asdati a * prologue 
Lchex 02270  * pour entier binaire 
asc a * entier binaire ? 
goyes oki 


badtype govlng #0c51b  * erreur: type invalide 
ok1 di=di+ 10 * saute prolog + Len 
a=dati a * nombre de nibs à poper 


r2=a * sauvegardedu nb de nib 
ac a * prologue entier binaire 
c=rstk * adresse 1er niveau 








di=c 
di=di+ 5 * drop nb nib 
d=d#i à ” 
c=dati a * adresse de L'adresse 
cdtex * pour peeker 
rstk=c * sauvegarde 2e niv. 
c=dati a * prologue 
?a#c a * diff. de ent. binaire? 
goyes  badtype  * erreur 
di=di+ 10 * saute prolog + Len 
c=dati a * adresse où peeker 
r3=c * sauvegarde 
c=rstk * adresse 2e niv. 
di=c 
c=r2 * nb nib 
* conversion en quartets 
* ajoute prolog + Len 
* espace à reserver. 
gosbvl  #1e9ba * res_str : chaîne reser 
d0=d0- 5 * revient sur Len de str 
c=ré * Longueur réservée 
con a,5 * Longueur str + 5 
a * charge en mémoire 
5 * revient sur Îer caract 
* nb nib 
a * compteur 
* adresse où peeker 
39 * valeur ASCII de 9 
gonc  decr * départ sur compteur 
Loop b * boucle de conversion 
1 * hexa <-> ascii 
b 
goyes  inf10 
a=a+con b,7 
inf10 datO=a b 
do=d0+ 2 
di=di+ 1 
decr b=b-1 a 
gonc Loop 
a=r0 * adresse chaîne 
goving #1f7fd * GPOveWrALp 
Li ler niveau (ex 2e) avec 
D cette adresse et retour 
fin con(5) #02f90 * SEMI 


Terminons par la dangereuse commande POKkE qui 
nous permet de changer le code en Ram donc à 
utiliser en connaissance de causes (surtout par ceux 
qui n’ont pas de solution de sauvegarde sur PC). 


Cette commande fait donc l'inverse de PEEK : on lui 
donne une adresse et la chaîne des codes qui vont 
modifier la Ram à cette adresse. On doit faire la 
conversion ascü -> hexa à l'inverse de ce qui a été fait 
pour PEEK. Pour le reste voir PEEK. 
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POKE 
cksum # 2E8Ch 91.5 octets 


syntaxe : 


2ème niveau : 1 entier binaire pour l’adresse 
où poker 
ler niveau : la chaîne de code à poker 


ASSEMBLE 
con(5) #02c67  * DOCOL 
con(5) #0c3c4 CK2NOLASTUD 
con(5)  #02c96 DOCODE 
rel(5) fin 
gosbvL _ #05081 
c=dati a 


* 


* 


* 


SAVPTR 


cdiex 
rstk=c # der niv. 
a=dati a prLogue 
lchex  O226e  * prologue chaîne 
?a=c a 
goyes  okl 
badtype govlng #0c51b 
ok1 di=di+ 5 
a=dati a 
asa-con 2,5 


* 


asrb.f a 
rû=a 
di=di+ 5 
c=rstk 
cdiex 
rstk=c * adr. ler car. 
di=d1+ 
c=dati a 
cdiex 
a=dati a 


nombre de codes 
à er caract. 
adresse 1er niv. 


+ + 


u 
* 


à 2ème niv. 


* 


prologue 

Lchex 02270 * prol. entier bin. 
?a#c a 

goyes  badtype 

di=di+ 10 

c=dati a * adresse où poker 
do=c = 

c=rstk 
di=c 
c=r0 


* 


à Îer car. 


* 


nbre de codes 
b=c a 
Lchex 39 
gonc  decr 
Loop a=dati b 
ac b 
goyes  inf10 
a=a-con b,7 
infl0  datO=a 1 
do=d0+ 1 
di=di+ 2 
decr  b=b-1 a 
gonc Loop 


* 





conversion ascii->hexa 


goving #125e5 * GETPTRLOOP 
fin con(5) #0211a * 2DROP 
con(5) #02f90 * SEMI 


Nous voici donc en possession des premiers outils qui 
étendent les possibilités de la machine. Il ne reste plus 
qu’à les compléter par quelques autres et à passer aux 
applications. 


Pour les projets d'avenir je pense qu’il faudrait 
s'orienter sur le graphisme (qui avait déja été abordé 
il y a longtemps dans JPC), à la fois en User Rpl et 
aussi en assembleur. Jai toujours dans mes cartons 
un projet pour réaliser LINE en assembleur. 


Je rappelle que pour programmer en System Rpl et en 
assembleur les compilateurs sur PC pour HP-71 ou 
HP48 conviennent, il suffit de donner les adresses des 
points d’entrées. Pour le reste le compilateur se 
charge des différentes tâches. La documentation de 
Vassembleur SASM contenu dans le kit de 
développement HP, est valable pour les HP-28 qui 
sont équipées du microprocesseur Saturn. 


En espérant un réveil de quelques uns... 


Guy Toublanc (276) 
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DES BUGS SUR LA GX 


Au cours de ces derniers jours, nous avons eu 
connaissance de lexistence de quelques bugs 
présentes sur les HP48G et GX : 


N’affichez pas l'horloge lorsque vous avez dans un 
port une carte Ram mergée avec la mémoire 
principale ou une bibliothèque attachée. Il en résulte 
un plantage de la machine (apparement sans perte 
des données)... 


Si vous pressez EDIT alors que la ligne de commande 
est active, le menu correspondant apparait. Mais si 
vous sortez de la ligne de commande en pressant 
ENTER OU CANCEL, le menu reste affiché au lieu de 
laisser réapparaitre le menu précédent. 


La fonction choose plante lorsque le premier 
argument est une liste ET que lun des cas se 
présentent : 

- Une liste avec moins de 
sélectionnée. 

- Au moins un des autres arguments est une liste vide. 
Ce bug présente un risque de corruption de la 
mémoire. 


deux éléments est 


Notez bien que ces bugs sont présentes sur les 
premières version des machines. Au moment où vous 
lirez ces lignes, une version corrigée (code de version 
P) devrait être disponible chez tous les revendeurs. 
En cas de doute, utilisez la nouvelle commande 
VERSION. 


Si vous avez connaissance d’autre bugs n’hésitez pas à 
nous en faire part. 


Jacques Belin (123) 


TRANSFERTS PLUS RAPIDES 
SUR HP-48G(X) 


Le protocole série KERMIT était le seul à être présent 
dans la Rom de nos HP-48S(X) et s’il est apprécié 
par ses qualités de fiabilité on peut lui reprocher sa 
lenteur de transfert. Les HP-48G(X) nous gratifient 
d'un deuxième protocole série: XMODEM dont 
l'avantage est un gain de rapidité appréciable car ne 
faisant pas les vérifications multiples de Kermit. Par 
exemple : 





Transfert d’un fichier binaire de 62282 octets entre 
HP-48GX et PC sous WINDOWS : 


Kermit Xmodem 
PC + HP-480X 949"! 1161’ 
HP-486X + PC 41361! 11381! 


Donc des temps plus acceptables et aussi une usure 
moins importante des piles qui est liée aux durées de 
transfert. 


Je ne peux pas donner d’exemple de transfert entre 
deux HP-48G(X) n’ayant vu qu’un seul de ceux-ci qui 
n’a pu être chronométré mais m’a semblé rapide. 


Je signale que pour la communication série entre 
deux HP-48 il est possible de réaliser facilement un 
connecteur reliant deux cables HP (JPC 85 p15). Cela 
est d'autant plus d'actualité que HP offre 
gratuitement un cable pour une HP-48G(X) acquise 
entre le 1/9/93 et le 31/10/93. 


Côté PC le protocole XMODEM est pratiquement présent 
dans la grande majorité des PC puisqu'il est intégré 
dans wiNpows. Pour ceux qui ne l’ont jamais utilisé 
voici quelques indications : 


Vous trouverez le sujet traité dans le manuel de 
WINDOWS au sous-chapiître des accessoires : Terminal et 
pour la HP-48: le chapître Utilisation de Xmodem 
page 27-14 du manuel d'utilisation. 


Il faut établir la configuration : 


1- coté HP-48 faire [flèche cyan (droite)] [1/0] pour 
activer le menu déroulant TRANSFER. Descendre sur 
Transfer et valider avec [ENTER] puis aller sur TYPE et 
activer CHOOS pour valider Xmodem. Dans ce type de 
transfert l'affichage montre les autres paramètres par 
défaut : 

port : Wire 

ud : 9600 _ovRU 

On remarquera qu’avec ce protocole il y a moins de 
paramètres qu’avec Kermit et qu’apparemment il ny 
a que le mode binaire. 


On peut opérer avec cette fenêtre pour la suite mais 
je préfère sortir en validant avec ENTER et utiliser tout 
de suite la méthode directe pour l'avenir. 

Faire flèche mauve (gauche)l [1/01 puis ENXTI. 
Mettre sur la pile le nom de l’objet que lon veut 
transférer. 











2- Côté PC en étant sous WINDous il faut activer 
succesivement ACCESSOIRES puis TERMINAL, en étant 
dans le menu Fichier activer Nouveau. 


Passer dans le menu Paramètres et activer la fenêtre 
Communications. Laisser les paramètres par défaut : 


vitesse de transmission : 9600 bauds 

bits de données : 8 

bit d'arrêt s1 

parité : aucune 

choisir : 

contrôle de flux : aucun 

port : COM1 ou COM2 suivant 


La connexion du cable HP 


Après avoir validé, revenir au menu Fichier pour 
sauvegarder cette configuration pour un futur retour 
dans TERMINAL OÙ Nouveau sera remplacé par Ouvrir 
(fichier). Donc sauvegarder avec Sauver, le fichier 
aura l'extension TRM (HP48.TRM semble tout indiqué 
pour ce fichier de configuration). 

Passer au menu Transferts et choisir Envoyer un 
fichier binaire Ou Recevoir un fichier binaire. 


Le nom du fichier étant donné : 


Pour un transfert HP + PC valider sur le PC puis 
activer XSEND sur la HP-48. 


Pour un transfert PC + HP activer xREcv sur la HP-48 
puis valider sur le PC. 


Il faut attendre quelques instants avant de voir 
s'effectuer le transfert qui après se fait plus 
rapidement que par Kermit. 


Voici donc des indications assez brutes sur ce 
deuxième protocole et WINDOWS car je ne suis pas un 
habitué de ce dernier. Il doit être possible de trouver 
des astuces pour activer plus rapidement Xmodem à 
la fois sur PC et HP-48. Faites nous part de vos 
découvertes dans la rubrique Trucs, astuces et petits 
utilitaires qui est tout indiquée pour cela. 


Remarque : dans PCTOOLS 6 on trouve aussi XMODEM 
comme dans d’autres intégrés (uorks etc..). Il y a donc 
de grandes chances que vous ayez ce protocole dans 
votre PC. 


Guy Toublanc (276) 


Le 


GRAPHISME EVOLUTIF OU 
LE CHAOS MAITRISE 


Le graphisme n’a pas eu beaucoup de succès dans les 
colonnes de JPC puisqu’il faut remonter au n°78 pour 
trouver l'unique article dans ce domaine (NDLR : en 
ce qui concerne la 48) et sous la signature de votre 
serviteur. Faut-il en déduire un manque d'imagination 
des lecteurs de JPC ? 


La construction des triangles de Sierpinski me permet 
de revenir à la fois sur le graphisme, la transcription 
d’un programme écrit en User Rpl en un programme 
en langage System Rpl et assembleur, et l'optimisation 
dans ce dernier langage. 


1 - User Rpl avant tout 


Ce langage, s’il est méprisé par quelques uns (qui ne 
savent pas ou plus s’en servir), est bien celui auquel 
on doit avoir recours en premier lieu pour débuter 
une programmation. En effet il est : 

- sécurisant, il ne plante pas la machine 

- le débogage est aisé 

- la traduction d’une formule est naturelle 

-la valeur des résultats intermédiaires peut être 
obtenue très simplement. 


Le domaine du chaos et des fractales est propice à la 
génération de dessins attactifs. Bien sûr nos HP-48 ne 
nous permettent pas d'obtenir des effets aussi 
spectaculaires qu’avec un PC et un moniteur couleurs. 
En limitant nos ambitions nous pouvons tout de 
même nous faire plaisir. C’est ce que je vais tenter en 
volant un programme de notre ami Robert Pulluard 
(tout de même avec son aimable autorisation). 
Robert a débuté, dans son bulletin 48sxtant, une 
rubrique chaos et fractales où il expose très 
simplement, comme à son habitude, quelques thèmes 
de ce difficile sujet et parmi ceux-ci les triangles de 
Sierpinski. Je vous renvoie au n° 22 de 48sxtant pour 
plus de détails et en prenant un raccourci je dirai 
simplement que ces triangles sont la représentation 
en noir et blanc du triangle de Pascal où le noir 
correspond aux valeurs impaires. Sans calculer les 
valeurs on peut noircir en faisant un AND binaire avec 
les deux coordonnées des points du triangle, un 
résultat nul se traduisant par du noir. 
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Ces triangles de Sierpinski possèdent la propriété 
d’auto-similarité c’est-à-dire que si lon fait un zoom 
sur une zone on retrouve la même structure que celle 
qui nous apparaît pour l’ensemble. 


Pour simplifier la programmation, Robert construit le 
triangle rectangle dérivé de l'original et cela avec le 
programme ci-dessous SIER2 qui affiche le triangle au 
fur et à mesure de la construction. Il suffit de fournir 
un nombre entier n. 





SIER2 


« FLOOR 2 SWAP * 1 - 1 MAX -n 
« n R-+B DUP BLANK PICT STO 
€ # Oh # Oh } PVIEW 
On 
FOR r 
Onr- 
FR s 
r R+B s R-B DUP2 
1F AND R-B 
THEN DROP2 
ELSE 2 +LIST PIXON 
END 
NEXT 
NEXT 
7 FREEZE 


2 - Traduction simple 


Nous allons traduire ce programme en System Rpl et 
assembleur. La seule différence sera d'obtenir un 
triangle avec la pointe en haut, diposition qui nous 
semble plus natuerelle, pour le reste c’est l’analogie 
complète : le programme effectue un balayage par 
colonnes de 1 point. 







Be. 


Be. 
Ên, | à EN 
Ê br ENS 














On se rappellera la structure d’un objet graphic: les 
lignes sont bout à bout et leur longueur réelle est un 
multiple de 8 (8 bits = 1 octet). Si pour l'affichage les 
lignes font 131 points il faut savoir qu’elles 
correspondent à 136 bits soit 34 quartets ou 17 octets. 


Pour allumer un point on fera par exemple : 

cbit=1 n 
sachant que l’ordre dans un registre est l'inverse de 
celui en mémoire. 


Les instructions de la première ligne ci-dessous 
vérifient la présence et la nature de l'argument puis 
les autres sont les homologues de celles en User Rpl, 
mais plusieurs pouvant être groupées en une seule. 
Puis vient la partie assembleur qui noircit les points à 
Paide d’une boucle générale et de 4 sous-boucles 
travaillant chacune sur un bit différent. 


CKINOLASTWD CK&DISPATCHO real 





XFLOOR %2 SWAP %” COERCE ONE #MAX 
DUPDUP MAKEGROB GROB>GD1SP 
ZEROZERO WINDOW# 





CODE 
gosbvl =POP# * 2°n nombre de points de 
r0=a * La base et de La hauteur 
gosbvl =SAVPTR 
d0=(5) #01f79 * adresse où CLCD10 se 
a=dat0 à * se sert de VDISP 
Lchex 7055b * VDISP pour HP-48S.. 
?ac à * version HP-48S..7 
goyes  hpé8s 
Lchex 806da * VDISP pour HP-486.. 
hpé&s  do=c 
a=dat0 a * adresse du PICT 
d0=a 
d0=d0+ 5 * à grandeur totale 
a=dat0 a * grandeur totale en nibs 
cd0ex 
do=c 
a * adresse fin PICT 
1 # @ fin PICT - 1 
a=a-con a,15 * Longueur L du PICT 
d0=d0+ 5 * à La hauteur h 
c=dat0 a * nombre de Lignes h 
gosbvl =IntDiv * L / h := nibs par Ligne 
de a * nb quartets par Ligne 
a=0 a * compteur colonnes 
c=r0 * hauteur 
c=c-1 a * compteur lignes 
***#*** boucle pour Le balayage vertical **#*###x 
Loop rstk=c * sauve Le compteur Lignes 
b=c x * compteur Lignes boucleD 
di=di+ 1 * Ligne n : quartet suivant 
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et 


ent 


Loop0 


nopix0 


eee 


eee 


Loopi 


nopixi 


gocout 


Aer 


Ans 


Loop2 


cdiex 

c=c-d a * remonte d’une Ligne 

di=c * @ début Ligne n - 1 nib 
d0=c * dito pointeur quartets 
boucle pour 1 colonne de 1 bit #***#*#*#…x 
bit O du quartet (en mémoire) #*#***#*###% 
c=a x # n° Ligne 

c=c&b x * AND sur coordonnées 

?2c#0 x #* si & O on ne noircit 
goyes nopix0 * pas 

c=dat0 1 * Le quartet à noircir 
cbit=1 0 * on Le fait avec Le bit 0 
datO=c 1 * stocke en mémoire 

cd0ex 

e=c-d à * adresse Ligne précédente 
cd0ex * pour La boucle 0 

b=b-1 x * compteur Lignes 

gonc  Loop0 * encore 1 tour 

cdtex * adresse Ligne n 

e=c-d a * adresse Ligne précédente 
di=c * à Ligne précédente 

d0=c * dito pointeur quartets 
azatl x * colonne suivante 

c=rstk * compteur Lignes bouclel 
c=c-1 x * actualiation 

goc  gocout * si plus de Lignes : sort 
rstk=c * sauve compteur Lignes 
b=c x * compteur Lignes bouclel 


boucle pour 1 colonne de 1 bit +##tttes 


bit 1 du quartet (en mémoire) 
ca x # n° de colonne 
c=c&b x * AND sur coordonnées 
2c#0 x # etc 
goes nopixi 
c=dat0 1 


Pre 





on répète Les mêmes 
opérations avec : 
cbit=1 boucle 1 pour bit 
datO=c boucle 2 pour bit 2 
cddex * boucle 3 pour bit 3 
c=c-d a 


M 


cddex 
b=b-1 x 
gonc 
cdiex 
c=c-d à 
dise 

do=e 

azatl x 
c=rstk 
c=c-1 x 
goc out 
rstk=c 
b=c x 


boucle pour 1 colonne de 1 bit ####tent 


bit 2 du quartet (en mémoire) *###t##tx 
c=a x 
c=c&b x 
2c#0 x 


goyes  nopix2 


c=dat0 1 
cbit=1 2 
datO=c 1 


nopix2  cd0ex 





rstk=c 
b=c x 
boucle pour 1 colonne de 1 bit 
bit 3 du quartet (en mémoire) *retetie 
Loop3 c=a x 

c=c&b x 

?2c#0 à 


nee eee 


eee 


goyes nopix3 
c=dat0 1 
cbit=1 3 
datO=c 1 
cd0ex 
c=c-d a 
cd0ex 
b=b-1 x 
gonc 
ati x * actualise compteur colonne 
c=rstk * compteur Lignes boucle 
* 
* 


nopix3 


c=c-1 x générale et actualisation 

goc out sort si Le compteur était 

goto Loop * à zéro sinon encore un 
out govlng =GETPTRLOOP * tour de grande boucle 
ENDCODE 


SetDAsTemp € gèle L'affichage ) 


3 - Un peu d'optimisation 


Le programme ci-dessus est la traduction pas-à-pas 
du programme de Robert. Mais si en User Rpl on 
adresse directement un pixel pour lallumer, en 
assembleur nous sommes contraints de faire les 
transferts registre <->mémoire au moins par quartet 
c’est-à-dire 4 bits à la fois. Donc il est plus rationnel 
de travailler à la fois sur les 4 bits d’un quartet pour 
ne faire qu’un transfert. Mais nous ne noircirons plus 
avec cbit=1 n qui serait perdu avec le AND suivant. 
Cette opération se fera en manipulant les status bits 
(st) qui peuvent s’échanger avec le champ X du 
registre C. D’autre part au lieu de faire un balayage 
par colonne cela se fera par ligne, l’avancement 
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s’effectuant par quartets d’une même ligne. Le 
résultat sera un programme moins encombrant et 
plus rapide. 


On aura pu remarquer que les opérations se font sur 
le champ X pour les colonnes et les lignes. Cela se 
justifie car la Ram maximale avec 2 cartes d’extension 
ne permet pas d'aller au-delà de n=9 ce qui 
correspond à 512 points pour la base et la hauteur du 
triangle. Donc le champ X convient et permet de 
gagner un peu de rapidité par rapport à l’usage du 
champ A. Voici la partie du listing modifié. Les labels 
p0 à p3 ne servent à rien pour l'instant. 





gonc Loopg * si encore 1 colonne 
aza#l x * actualise compteur Lignes 
c=rstk * Lignes non traitées 

e=c-1 x * actualise compteur 

gonc Loop  * si encore Ligne à traiter 
govlng =GETPTRLOOP 
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CODE 
gosbvl =POP# 
c=r0 
c=c-1 a 
**#**** boucle pour quartets ‘horizontaux’ **###* 
Loop rstk=c * sauve compteur Lignes 
b=c x * compteur colonnes 
cdiex 
c=c-d a * adresse Ligne précédente 
di=c * à Ligne n - 1 quartet 
do=c * dito pointeur quartet 
Loopo cirst * mise à zéro des status bits 
d0=d0+ 1 * quartet suivant de La Ligne 
Ps e=a x * n° de Ligne 
c=c&b x * AND sur coordonnées 
2c#0 x 
goyes _nopix0 
st=1 0 * remplace cbit=1 0 
nopixO  b=b-1 x 
goc load * si dernière colonne 
pè cza > * sinon bit suivant 
c=c&b x * etc... 
?2c#0 x 
goyes  nopix1 
st=1 1 
nopixi  b=b-1 x 
goc Load 
pl c=a x 
c=c&b x 
2c#0 x 
goyes  nopix2 
st=1 2 
nopix2 b=b-1 x 
goc Load 
po ca x 
c=c&b x 
?c#0 x 
goyes  nopix3 
st=1 3 
nopix3 b=b-1 x 
Load ezst * c(x) <- status bits 
datO=c 1 * stocke en mémoire 


ENDCODE 
4 - Revenir aux sources 


Les programmes ci-dessus génèrent des triangles 
rectangles aussi nous allons traiter le problème un 
peu plus compliqué du tracé de triangles comme celui 
présenté au tout début. Nous n’avons donc plus de 
côté vertical et nous devons normalement décaler 
chaque ligne d’un demi point car la base a le même 
nombre de points que la hauteur. Ceci oblige donc à 
décaler d’un point toutes les deux lignes. Chaque 
ligne n’étant pas de longueur multiple de 4 nous ne 
pouvons faire le décalage d’un quartet à chaque 
boucle comme précédemment. Il faut donc 
comptabiliser ces sauts d’un quartet d’une autre 
manière. Cela se fera à l’aide du registre P qui nous 
permettra de nous brancher à un niveau de boucle 
correspondant au décalage d’un bit toutes les 2 lignes. 


Voici la partie du listing modifié par rapport au 
programme précédent. Pour les labels p0 à p3 voyez 
le listing ci-dessus. 


c=c-1 a 

p= 8 * initialisation de P 
##**#*** boucle pour balayage horizontal  *#*#kit 
Loop  rstk=c 

b=c x * compteur lignes 

p=p-1 

gonc idem  * pas de décalage d'1 nib 

P= 7 * sinon P réinitialisé 

di=di+ 1 * décalage d’un quartet 
idem cdiex 

e=c-d à * adresse Ligne précédente 

di=c 

d0=c 

d0=d0+ 1 * décalage d'un quartet 

ctrst * mise à zéro des status bits 

2p= 5 

goyes p2 * départ de Ligne sur bit 1 

?P= 4 

goyes p2 * départ de Ligne sur bit 1 

2p= 3 

goyes pl * départ de Ligne sur bit 2 

2p= 2 

goyes pi * départ de Ligne sur bit 2 

2p= 1 

goyes p0 * départ de Ligne sur bit 3 

2p= 0 














goyes p0  * départ de Ligne sur bit 3 
gonc p3 * départ de Ligne sur bit 0 
Loopo  clrst 





5 - objets inanimés.. 


Avec les programmes ci-dessus les triangles sont 
affichés d’office mais on peut désirer créer une 
animation graphique avec un programme d’animation 
qui doit activer l'affichage suivant le temps désiré. Je 
vous propose des modifications aux programmes 
ci-dessus : les objets graphiques sont générés mais 
sans être affichés. 


Voici les modifications de début et de fin de 
programme par rapport au listing du paragraphe 3 un 
peu d'optimisation. La création de l’objet graphique se 
fait maintenant au début de la partie assembleur ce 
qui nous montre une autre façon de programmer. 





CKINOLASTWD CK&DISPATCHO real 





XFLOOR %2 SUAP %” COERCE ONE #MAX 











CODE 
gosbvl =SAVPTR 
c=dat1 a 
di=c 
di=di+ 5 *a2n 
c=dati a * hauteur et Largeur 
* pour makegrob 
* pour makegrob 
=makegrob * création du graphic 
16 
& * à adresse de L'objet 
* R3 <- adr graph 
a * nb quartets/Ligne (de R3) 
1 * à fin graph. - 1 quartet 
a=0 a * initialise n° de Ligne 
c=r0 * hauteur 
e=c-1 a * compteur Lignes à traiter 
Loop  rstk=c * sauvegarde 
Load ... 
gonc Loop 
a=r3 * adresse du graph. 
govlng =GPOverWrALp * GETPTR puis 
* L'adresse de graph. 
* remplace celle de 2°n 


ENDCODE 


6 - Noir ou blanc 


Nous pouvons obtenir des triangles en inversion vidéo 
avec la modification suivante : 


à lintérieur des boucles il suffit de remplacer ?c#0 x 
par ?c=0 x 


De là à faire des programmes travaillant avec les 2 
modes graphiques il n’y a qu’un pas à franchir : 

un entier positif génèrera un triangle normal et un 
entier négatif génèrera un triangle inversé. 


Voici donc les modifications à apporter : 


1- pour les programmes qui à la fois construisent et 
affichent les objet graphiques : 


1: CKINOLASTWD CK&DISPATCHO real 
1: DUP %0< ITE FALSE TRUE SWAP 
XABS %FLOOR 
nésusesa -.... WINDOW# SUAP 





gosbvl =popflag  * ajout 
a=0 s e 

goc posit % 
a=a+i s # 
gosbvl =POP# 

rû=a 

gosbvl =SAVPTR 


posit 





ctrst 
d0=d0+ 1 


Loop0 


ca x 
c=c&b x 
20 s * 
goyes _ pos0 * 
2c=0 x * 
goyes nopix0  * 
gonc  blackO  * 
pos  ?c#0 x 
goyes _ nopix0 
blackO st=1 0 


ajout qui se répète 
pour chaque bit 





nopixO  b=b-1 x 
black3 s 3 
nopix3  b=b-1 x 
Load c=st 
datO=c 1 
goc  nxtline  * remplace gonc qui 
goto Loop * plus possible ici 
nxtline a=a+1 x 
c=rstk 
cz=c-1 x 
goc out * remplace gonc qui 
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goto Loop * plus possible ici 
out goving =GETPTRLOOP 


2- pour les programmes qui construisent seulement 
les objets graphiques mais ne les affichent pas : 


1: CKINOLASTWD CK8&DISPATCHO real 
1: DUP %0< ITE FALSE TRUE 
SWAP %ABS %FLOOR ..... 
nosessscecs#MAX SUAP 


CODE 
gosbvl =popflag * ajout 
e=0 os “ 
goc  posit * 
cz s * 
posit  gosbvl =SAVPTR 


* puis mêmes ajouts et 
et modifications que 
ci-dessus pour Les 
mêmes raisons 





+ 


Evidemment ces mofifications ralentissent un peu 
l'exécution des programmes mais cette polyvalence 
est appréciable. 


Conclusion: 


Nous avons vu qu’il était possible de suivre pas à pas 
un programme réalisé en User Rpl pour le traduire en 
assembleur, ce qui ne donnera pas un programme 
optimisé. Pour obtenir ce dernier il faut tenir compte 
d’une containte de l’assembleur : la plus petite unité 
de transfert entre registres de calcul et mémoire est le 
quartet. Il faut donc modifier la programmation pour 
réduire le nombre de transferts. De ce point de vue 
nous aurions pu augmenter encore la rapidité des 
programmes en travaillant sur les 2 quartets du 
champ B. 


Vous trouverez dans le coin des codes les listes de 
codes correspondant aux programmes suivants : 


DSIERREC 
construit et affiche des triangles rectangulaires 


DSIERISO 
construit et affiche des triangles isocèles 


GSIERREC 
construit des triangles rectangulaires 


GSIERISO 
construit des triangles isocèles 


Tous ces programmes acceptent des entiers positifs 
ou négatifs et sont compatibles HP-48S. et HP-48G. 


Pour terminer voici un petit programme qui n’a pas la 
prétention de faire du grand spectacle mais qui n’est 
qu’un modeste exemple de possibilité de réaliser des 
animations. Il simule une coulée de laves lors d’une 
éruption volcanique. Il doit être possible de faire 
beaucoup mieux avec d’autres paramètres. À vous de 
jouer. 


ERUPT 


« -6 GSIERREC PICT STO 
€ # Od # Od } PVIEW 2 WAIT 
3127 
FOR 1 PICT I R+B DUP 2 / 1 - 2 LIST 
1 7 MOD GSIERREC GXOR 
NEXT 7 FREEZE 


Il suffit d'appeler ERUPT pour voir cette petite 
animation. 


ANIMATE sur HP48G 


Sur HP-48G, la commande ANIMATE (- PRG - GROB ) 
devrait donner des possibilités dans ce domaine. Mais 
peut-être que vous ne pouvez pas le faire car le 
manuel utilisateur est erroné : 


Si celui-ci indique bien qu’il faut fournir au niveau 1 
le nombre d’objets graphiques 7 puis du niveau 2 au 
niveau n+1 les n objets graphiques, pour la 2ième 
option il faut toujours fournir les n objets graphiques 
et au niveau 1 une liste : 


{nt#x #yDdr)} 
où: 
n est le nombre d'objets à animer 
x y sont les coordonnées d’affichage du coin 
supérieur gauche du graphique 
d est le délai d’affichage 
r _est le nombre de répétitions 


Ces précisions m’ont été aimablement communiquées 
par notre ami Robert Pulluard. 


Guy Toublanc (276) 

















COMPATIBILITE ET HP-48G(X) 


Certains possesseurs de HP-48S(X) puis HP-48G(X) 
ont pu constater que certains programmes écrits en 
System Rpl et assembleur pour HP-48S(X) sont 
incompatibles avec les HP-48G(X). 


A cela il y a deux raisons évidentes : 


- utilisation de progammes internes dont les points 
d'entrée ne sont pas supportés par HP qui pour des 
raisons techniques est obligé de modifier ou d’ajouter 
des programmes internes. 


- Une raison physique puisque la principale RAM 
interne à subi une translation de #10000h passant de 
#70000h à #80000h. 

Il y à encore d’autres raisons puisque lon peut 
constater que des librairies qui fonctionnent bien en 
port 0 ou 1, ne fonctionnent plus en port 2. 


Ayant une HP-48GX depuis peu de temps je n’ai pas 
pu explorer très largement la ROM. 


Il est possible de trouver des correspondances entre 
les deux types de machines et cela très simplement. Il 
suffit de désassembler à partir de points d’entrée 
supportés. Par exemple pour le programme 
assembleur interne SAVPTR qui sauve les pointeurs. 


SAVPTR 

HP-48S(X) HP-48G(X) 
0679B CDOEX 06798 CDOEX 
0679E D0O= 70580 0679E D0= 8072F 
067A5 DATO=C A 067A5 DATO=C A 


067A8 DO= 70579 
O67AF CDIEX 


067A8 DO= 806F8 
O67AF CDIEX 








067B2 D1= 06782 D1=C 
06785 DAT 06785 DATO=C A 
06788 DO= 70574 06788 DO= 806F3 
067BF C=B À 067BF C=B À 
067C1 DATO=C A 067C1 DAT! 





067C4 DO= 7066E 067C4 DO= 807ED 
067CB C=D À 067CB C=-D A 
067CD DATO=C A 067CD DATO=C A 
067D0 RTNCC 067D0 RTNCC 


On voit donc que si les programmes sont aux mêmes 
adresses les sauvegardes de pointeurs se font à des 
adresses décalées de #1017Fh. Mais cette translation 
west pas forcément constante pour tous les 
programmes internes. Donc il faut rester attentif et 
toujours faire des contrôles avant de convertir un 
programme HP-48S(X). 


Dans le programme cIRCLE (JPC 78 pages 17-21) on 
trouve au début du listing assembleur : 


D0=(5) #70565 * =VDISP 
A=DATO À 


pour avoir l’adresse du PICT. 


Pour trouver Vo1sPp sur HP-48G(X) on peut procéder 
de la manière suivante : 


Chercher à l’aide du programme FINDMEM de Laurent 
Grand (JPC-85), par exemple, les adresses où l’on 
trouve le code "1F56507" dans la Rom HP-48S(X) et 
correspondant à D0=(5) #70565. Parmi les diverses 
adresses la première est # 01F77. En se reportant à 
la liste des points d'entrée HP on voit que le 
programme CLCD10 est voisin. En désassemblant à 
laide d’un décompilateur, par exemple Mons de 
Jean-François Garnier, on voit que CLCD10 utilise 
voisp. Si la Rom HP-48G(X) a été transférée sur PC 
on désassembler celle ci à partir de cLCD10. Sinon en 
faisant dans la HP-48G(X) un PEEk à l'adresse de 
cLCD10 on peut obtenir les résultats suivants : 


CLCD10 

HP-48S(X) HP-48GCX) 
01F6D 01F22 Primitive 22F10 
01F72 137 CDIEX 137 
01F75 06 RSTK=C 06 
01F77 1FB5507 D1=(5) =VDISP 1FAD608 
O1F7E 147 C=DAT1 A 167 


Le désassemblage montre que les deux programmes 
sont aux mêmes adresses et identiques sauf la 4ième 
ligne. A droite 1FAD608 correspond à D1=(5) #806AD 
alors qu’à gauche nous avons D1=(5) #70558. Cela 
nous permet de récupérer l'adresse de VoisP pour 
HP-48G(X) soit # 806DA. 


Pour les programmes utilisant voisp il suffira de 
remplacer #7055B par #806DA pour obtenir les 
versions compatibles HP-48G(X). 


Il y à une autre solution qui consiste à faire un seul 
programme compatible HP-48S(X) et HP-48G(X). Il 
suffit de détecter le type de Rom et d’utiliser le voisp 
correspondant. Donc le programme pourra être 
modifié de la manière suivante : 


DO=(5) =VDISP 
A=DATO A 





sera remplacé par: 
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D0=(5) #01F79 
A=DATO A 
LCHEX 70558 
AC À 
GOYES hpéës 
LCHEX 806DA 
hpé&s D0= € 
A=DATO A 





C'est cette procédure que j'ai employé pour les 
programmes de tracé de triangles de Sierpinski qui 
sont publiés dans ce même JPC. 


Pour CIRCLE nous sauvegarderons C(A) avant la 
modification ce qui nous donnera : 


GOSUB 
RSTK=C 
DO=(5) #01F79 


conver 





hpéss 


C=RSTK 
A=DATO À 


Vous trouverez la liste des codes pour le nouveau 
programme CIRCLE, compatible G et S, dans /e coin 
des codes. Pour ceux qui ont la version S ils pourrons 
éviter de tout retaper en utilisant le programme 
ci-dessous qui nécessite -ASc et ASc- (voir ci-dessous) 
ou équivalents si compatibilité G. 


modicirele 
cksum # D3C5h 303.5 octets 


« ICIRCLE’ RCL 

BYTES DROP # DA13h # 

IF THEN # 203h DOERR END 

lCIRCLE’ RCL +ASC + S 

« S 1 25 SUB "1D" + S 28 67 SUB + 
n51206 + 11B97F" + 
"10142" + "34855" + 
MO078A2" + "9034A" + 
MD6081" + 13407" + 
S 78 OVER SIZE SUB + ASC+ 


Rapide inventaire jpc 


Les numéros entre () indiquent la dernière version et 
les lettres entre (), les initiales des auteurs lorsqu'il y 
plusieurs versions (LG=Laurent Grand GT=Guy 
Toublanc) 


Programmes  cksum JPC page compatibilité 
n° HP-48G(X) 
ASSCOD # 1058h 78 15 oui 
ASC # 7EO7h 78 15 oui 
PILS #956Dh 78 16 oui 
DEPIL # 3D18h 78 16 oui 
CIRCLE # DA13h 78 18 voir ci-dessus 
RING # EC29h 78 18 oui 
ASC+ (2) # FC91h 79 11 oui 
PEEK # D787h 79 12 oui 
XPEEK # GEFBh 79 12 non 
REV-rpl # ECSCh 80 12 oui 
PIL # 2DA2h 80 13 oui 
FFACT (LG) #5129h 81 9 oui 
POKE # 2647h 81 12 oui 
ADDR # B811h 81 13 oui 
EDIV (2) # EE66h 81 13 oui 
FFACTS (GT) # B8OFh 82 24 oui 


FFACTSX (GT) # 7561h 


8 
y 
5 
£ 


TIMED # 1C05h 82 26 oui 
FINDMEM #ED36h 85 18 oui 
RECOVER (2) # AB24h 85 19 non 
UNLINE # 86 18 oui 
TOUPPER # DCBFh 86 22 oui 
SYSRCL 87 18 

à oui 
PARSE 19 
PROGDEC et 88 13 non car dépendant 
ALLDEC 88 14 de <-RPL-> qui 

doit être revu 

REV (2) # 9069h 88 15 oui 


Il y a donc beaucoup de choses réutilisables. Sauf 
pour des programmes très pointus il doit être 
possible, de faire en général une seule version de 
programmes compatibles S et G, comme pour CIRCLE, 
DSIERREC et DSIERISO (dans ce JPC). Avec un peu 
d’astuce cela ne devrait pas diminuer beaucoup la 
vitesse des programmes polyvalents mais quelle 
simplicité pour tous et les possesseurs de HP-48S. ne 
seraient pas abandonnés. 


Guy Toublanc (276) 
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TRIANGLES DE SIERPINSKI 


Les nostalgiques ou les inconditionnels du HP-71, 
possesseurs de JPCRom (version E), ne doivent pas 
oublier qu’ils peuvent faire facilement du beau 
graphisme, soit de façon utilitaire ou pour créer des 
dessins divertissants. Il aurait été possible d’ailleurs 
de grossir le nombre des fonctions du module 
graphique intégré dans JPCRom si le créateur du Lex 
nous avait laissé les fichiers sources. Or l'ensemble 
des fichiers qui ont été remis au club est amputé de 
tout ce qui n’a pas été publié dans JPC concernant 
JPCRom ce qui rend impossible toute actualisation 
rationnelle de ce module. C’est une vieille histoire 
mais ici se présente loccasion de dire la vérité 
contrairement à ce qu'ont voulu faire croire les 
auteurs (et complices) de cette amputation qui par 
ailleurs ont rendu de très grands services au 
club ,personne ne peut le nier, mais dont la sortie du 
club s’est faite avec moins de noblesse en masquant la 
vérité. Aussi il faut se contenter de ce qui existe de 
JPCRom, d’ailleurs qui s’est manifesté à ce sujet ? 


J'avais donné une suite au graphisme en créant le Lex 
CERCLEX avec deux mots CIRCLE ET RING (JPC-78) et 
cela en transposant pour HP-71 des programmes 
pour HP-48. Je rappelle aussi qu’il est possible de 
visualiser des fichiers graphiques avec les 
programmes GLCD71, GLCDCMT et les Lex TRANSLEX et 
LCDLEX (JPC-71-72), travaux publiés à une époque ou 
deux numéros ne suffisaient pas pour publier 
correctement un article et ses programmes. 


L'occasion de transposer, un programme pour HP48 
en Lex HP-71, se présentant à nouveau, voici du 
graphisme divertissant: les triangles étranges de 
Sierpinski. Pour quelques explications reportez vous à 
Particle correspondant dans la rubrique HP-48. Voici 
le mode d'emploi du Lex SIERPLEX avec son ordre 
SIERP : 


Celui-ci est fait pour être utilisé avec un bout de 
programme basic et il ne vérifie que le type GRAPH du 
fichier qu’on lui donne ainsi que la hauteur maxi. 


Il suffit de fournir un nombre entier pour générer un 
triangle de Sierpinski, le fichier graph sera par 
exemple de 40960 octets pour n=9, le triangle aura 
une base de 512 points ce qui est la limite supérieure 
car pour n=10 cela ferait 1024 points et donc 
incompatible avec les 640 points d’une ligne de fichier 
graph. 


Pour obtenir le triangle en vidéo inversée il faut 
fournir un entier négatif. 


Donc un petit bout de programme basic qui fait le 
calcul de la base du triangle en fontion de n, et génère 
le fichier graph correspondant,puis trace le triangle 
avec l’ordre SIERP : 


10 INPUT "n (1-9) ? "5N 

20 K = MAX(1,2"ABSCN)) 

30 GINIT "RASTER",K 

40 D = HTD(ADDRS("GRAPHILE)) + 16 
50 IF N < O THEN D=-D 

60 SIERP D 


Le fichier source (pour les commentaires voir coté 
HP48) : 


LEX #SIERPLEX’ 


10 #68 
MSG O0 
POLL O0 
ENTRY SIERe 
CHAR #2 
KEY *SIERP’ 
TOKEN 254 
ENDTXT 
=ARGERR EQU #08F19 
=EXPEXC EQU #0F186 
=FIXDC EQU #05493 
=FIXP EQU #O2A6E 
=MFERR EQU #09393 
=NXTSTM EQU  #08A48 
=RNDAHX EQU  #136CB 


=eFTYPE EQU  #3F 


GOVLNG =ARGERR 
LCC2) =eFTYPE 
GOVLNG =MFERR 
GOVLNG =FIXDC 
GOVLNG =FIXP 


argerr 
typerr 


SIERd 
SIERP 


REL(5) SIERd 

REL(5) SIERp 

GOSBVL =EXPEXC 

GOSBVL =RNDAHX * conversion réel -> hexa 

GC  posit * si nombre positif 

A=-A À * pour valeur absolue 

posit  DO=A * à sur type fichier 
A=DATO A 
LCHEX OE222 * type fichier graph 
2A#C A 
GOYES typerr * si pas fichier graph 
LC(5) 160 * Longueur des Lignes en nib. 
D=C A 
D0=D0+ 16 
A=DATO A 
CDOEX 
DO=C 
A=A+C À 


SIERe 


* à sur Longueur fichier 


* fin après données graphiques 














Loop 


Loop0 


pos0 


blackO 
nopix0 


pè 





RSTK=C 
B=C 
P=P-1 
GONC 
P= 
DO=D0+ 
CDOEX 
C=C-D 
DO=C 
D1=C 
D1=D1+ 
CLRST 
?P= 
GOYES 
?P= 
GOYES 
?2P= 
GOYES 
?P= 
GOYES 
?P= 
GOYES 
?P= 
GOYES 
GONC 
CLRST 
D1=D1+ 
C=A 
c=c88 
?8#0 
GOYES 
?C=0 
GOYES 
GONC 
?C#0 
GOYES 
ST=1 
B=B-1 
Goc 
C=A 
C=c&B 
?8#0 
GOYES 
?0=0 
GOYES 


5 * à sur hauteur 


1 * position fin Ligne n - 1 nib 


argerr * à si hauteur > 9 

A * pour La suite voir HP-48 
A 

A 


idem 


1 


1 


BE Se NME SEM 


nopix 


posi 


black1 
nopix1 


pl 


pos2 


black2 
nopix2 


pos3 


black3 
nopix3 
Load 


nxtline 


out 


GONC 
?C#0 
GOYES 
ST=1 
B=B-1 
Goc 
C=A 
c=c88 
?8#0 
GOYES 
?C=0 
GOYES 
GONC 
?C#0 
GOYES 
ST=1 
B=8-1 
Goc 
C=A 
c=c88 
?B#0 
GOYES 
?C=0 
GOYES 
GONC 
?C#0 
GOYES 
ST=1 
B=8-1 
C=ST 
DATI=C 
Goc 
GOTO 
ASA+1 
C=RSTK 
C=c-1 
Goc 
GOTO 
GOVLNG 


END 


black1 
x 
nopixi 
2 

x 
Load 
x 

x 


pos3 


nopix3 
black3 


nopix3 


1 
nxtline 


Loopo 
x 


x 
out 
Loop 
=NXTSTM 


Vous trouverez la liste des codes hexa dans /e coin des 


codes. 


La rubrique HP-71 est toujours ouverte,il suffit de 
faire un petit effort de participation dans un 
quelconque langage y compris l'excellent basic du 


HP-71. 


Guy Toublanc (276) 
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J. Belin 


Configuration de aED1T sur HP95 
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UN EDITEUR POUR LE HP95 


De nombreuses personnes regrettent la faible 
puissance et le manque d’ergonomie de l'éditeur de 
texte intégré au HP95. Au point de sacrifier un peu de 
place sur leur disque interne pour installer un autre 
éditeur. 


Les programmes les plus utilisés sur HP95 sont 
probalement VE et @Eb1T (Ils sont inclus dans notre 
disquette n°2). Ces deux éditeurs possèdent certaines 
fonctionnalités communes telles que la possibilité 
d'ouvrir plusieurs fichiers simultanément ou de 
diviser l'écran en plusieurs fenêtres. 


Cependant, ils possèdent de nombreuses différences 
qui les rendent complémentaires. 


En effet, DE est plutôt orienté "traitement de texte" et 
offre des options telles que la justification de 
paragraphes ou différents styles de caractères. Il 
possède une option d’installation relative au HP95. 


Par contre, @œŒDIT est un éditeur de texte avancé 
offrant des possibilités relativement rares telles que la 
possibilité de reconfigurer totalement le clavier, la 
manipulation de colonnes de texte ou une aide au 
tracé de cadres ou de tableaux. Il possède cependant 
une gestion de paragraphe simplifiée. Une autre 
caractéristique importante est que @EDIT ne possède 
pas de limite (si ce n’est la mémoire disponible) dans 
la taille des fichiers édités. 


Suivant le type de travail que vous aurez à éditer 
(textes ou sources), l’un de ces éditeurs devrait donc 
vous contenter. Pour ma part, j'ai porté ma 
préférence sur @EDIT. 


Cet article a pour but de vous donner quelques 
indications vous permettant d'installer au mieux cet 
éditeur sur le HP95. 


Mais, avant de le lire, il est indispensable que vous 
lisiez (ou au moins de parcouriez !) la documention 
incluse avec le programme. En effet, cet article n’a 
pas la prétention de la remplacer, et je ne citerai ici 
que certaines possibilités ou passerais sous silence 
certaines parties de l'installation (Pimpression par 
exemple) qui ne posent pas de problème. 


A l'origine, le programme est configuré de façon à 
fonctionner de la même façon que WordStar (voir 
Pannexe A de la doccumentation pour voir les 
assignations des commandes sur le clavier). Les 
utilisateurs d’autres éditeurs tels que celui des 


languages Borland ne seront donc pas dépaysés. Les 
autres ont toute latitude pour modifier les fichiers 
d'installation pour le reconfigurer. 


L'exemple présenté aujourd’hui consiste à compléter 
la configuration initiale de façon à ajouter certaines 
commandes présentes sur les langages Borland et 
ajouter certaines commandes spécifiques au HP95. 
Cependant, le programme présentant un grand 
nombre d'options de configuration relevant de goûts 
ou d’habitudes personnelles, je ne donnerai ici qu’un 
exemple de configuration très incomplet, que vous 
devrez ensuite étoffer ou modifier selons vos choix 
personnels. 


Avant de commencer, je voudrais signaler que j'ai 
inclus dans la disquette un exemple de configuration 
adaptée au HP95, par Jorge Treviño (fichier 
@eD-95.z1P). Sans être trop critique, je vous conseille 
d'oublier le fichier de configuration du clavier et de 
ne garder que le fichier d’aide si vous n’aimez pas la 
présentation de celui présenté dans cet l’article. 


Description du Fichier de définition des touches : 
Le fichier QCONFIG.DAT présent sur le fichier ZIP 
original nous servira de base (Jorge Treviño en a 


retiré quelques unes importantes de son fichier). 


Commençons par ajouter les principales définitions 
manquantes par rapport aux éditeurs Borland : 


#1 auickHelp 

#2 SaveFile 

#3 EditFile 

#5 Zoomkindow 
16 Nextuindow 
#10 MainMenu 
af3 Exit 

"45 ResizeWindon 
“ki ShiftRight 
“Kku ShiftLeft 


Puis ajoutons les accès directs au menu principal : 


ab MacroBegin MaïnMenu ‘’b' 
ae MacroBegin MainMenu ’e’ 
af MacroBegin MainMenu ‘f' 
am MacroBegin MainMenu ’m” 
&o MacroBegin MainMenu ‘0 
äp MacroBegin MainMenu ‘p' 
aq MacroBegin MainMenu ‘q/ 
as MacroBegin MainMenu ’s' 
an MacroBegin MainMenu ‘u” 
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Afin de marquer un bloc de texte, il est possible, sur 
PC, d'utiliser les combinaisons de touches 
Shift+Flèches. Malheureusement, ces combinaisons 
étant réservées par le HP95, il est nécessaire trouver 
une autre méthode. Je vous propose donc d'utiliser la 
commande MarkCharacter et de l’assigner sur une 
touche proche des flèches, par exemple F9. 


#9 MarkCharacter 


Profitez en aussi pour assigner, à coté de cette touche, 
la commande soeur permettant de créer un bloc 
multi-colonnes : 


f8 MarkColumn 


Pour les mêmes raisons que précédement, il est 
nécessaire de déplacer les assignations des 
commandes d’accès au presse papier. Etant assignées 
aux touches IShift] LINSI, [Ctrl] [INSI et [Shift] [Del], 
je vous propose de les assigner à la touche placée au 
dessus de 1Ns sur le HP95, c’est à dire F9. Pour la 
touche [Shift] [Del], nous prendrons [Shift] [F10] : 


#19 Paste 
"#9 Copy 
#f10 Cut 


Dans le même esprit, vous pouvez assigner les 
commandes de décalement de laffichage sur des 
touches proches de celles permettant de décaler la 
fenêtre virtuelle du HP95 (alt+Flèches), en 
conservant l'accès par la touche Alt : 


af9 ScreerRight 


af10 ScreenLeft 


Enfin, puisque nous avons une touche MENU sur le 
HP9S, profitons en : 


200 MaïnMenu 


Le code 200 correspond à cette touche. En effet, il est 
possible d’assigner des commandes aux touches 
spéciales du HP95 en spécifiant leur code étendu. En 
voici les plus importants : 


Normal Shift Ctrl Alt 
FILLER 168 164 174 171 
COMM 172 n/d 178 175 
APPT 176 n/d 182 179 
PHONE 180 n/d 186 183 
MEMO 184 n/d 190 187 
LOTUS 188 n/d 194 191 
CALC 192 n/d 198 195 
MENU 200 201 202 203 


Notez enfin que vous pouvez très bien enregistrer des 
macros sur ces touches. Cependant, vous pouvez 
noter à ce sujet qu’il n’est pas possible d'écrire des 
macros sur des séquences de touches (telles que 
LCtrL] IK] (81). 


Fichier de description de l’écran d’aide 


Ce fichier texte (que j'ai appelé QHELP9S) vous 
permet de définir l'écran qui sera affiché lors de 
lappel de la macro quickkelp (assignée à F1). 


Contrairement au fichiers donnés en exemple, j'ai 
modifié la presentation afin de faire coincider les 
marquages présents au bas de lecran. Les lignes 
repérées par S, C et A représentent les combinaisons 
possibles avec les touches Shift, Ctrl et Alt. Ce qui 
donne pour le fichier QCONFIGH9S décrit 
précédement : 


HENSES 


HELP 


SCREEN 





La place pour chaque description étant très comptée, 
vous voyez qu’il faut faire bref !-Je vous conseillerai 
donc d’etre un peu égoïste et de ne pas hésiter a 
prendre des abreviations dont vous serez sûr de vous 
rapeler, même si elles vous sont "personnelles". Vous 
pouvez même utiliser les caractères semi-graphiques 
pour créer des petits logos... 


Notez que le dessin du cadre et du logo "QED95" a 
été très grandement facilité par Putilisation de la 
macro BoxDrau (que vous devez absolument essayer !). 


Configuration du programme 


Une fois les fichiers édités, vous devez configurer le 
programme. Pour cela, il faut modifier les données 
initialisées dans le programme Q.ExE à l’aide du 
programme QCONFIG. 


Une fois celui-ci lancé, il vous offre un menu 
permettant de modifier différents types de 
paramètres (écran, impression...). Il est conseillé de 
charger en premier (par loption KEYS) les 
informations stockées dans le fichier de configuration 
du clavier. En effet, il est tout a fait possible qu’une 
erreur de syntaxe se soit glissée sur une de ses lignes. 
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Dans ce cas, le programme s’arrête immédiatement 
(apres avoir tout de même affiché un message 
d’erreur) sans sauvegarder les autres modifications... 


Une fois ce fichier accepté par le programme, 
profitez en pour charger l’écran d’aide (par l'option 
Help Install. 


Vous pouvez maintenant modifier les autres options 
(afin de ne pas surcharger l’article, j'ai abrégé les 
textes affichés par le programme) : 


Advanced options 
Pour les questions : 


Test for presence of EGA or VGA adapters ? 
Repondez "N", car nous n’avons pas ce type d’écran 
sur le HP95. Notez aussi que cela me vous empeche 
aucunement d’utilser le programme sur un ordinateur 
équipé de ce type d’écran. 


Test for presence of enhanced keyboard ? 
Répondez "Y". Cela permet d’avoir accès aux touches 
spéciales du HP95. 


Swap to Expanded memory... ? 
Nous n’avons pas d’'EMS, donc la réponse est "N". 


Drive for disk swapping... ? 

A priori il faudrait indiquer l'unité (disque C ou Carte 
Ram) sur laquelle on est sûr qu’il y ait toujours de la 
place. Dans le doute, j'ai mis "*". 


Should @Edit change the cursor size ? 

Do you want a Large flashing cursor ? 

La réponse qui pourrait être la plus logique serait "Y" 
pour la première question et "N" pour la deuxième, 
qui affiche un curseur de taille diférente suivant le 
mode de frappe (Insertion ou  Overwrite). 
Malheureusement, si cela marche sur un PC, le HP95 
refuse de changer la taille du curseur. D’autre part, il 
est souvent difficile de localiser le curseur car il est 
trop fin. Pour corriger ce problème plusieurs 
solutions existent : 

-Si vous m'utilisez pas d’utilitaire permettant de 
modifier la taille du curseur, il est conseillé de 
répondre "Y" aux deux questions pour obtenir un gros 
curseur. En effet, le curseur affiché originellement est 
très fin et difficilement visible en permanence. 

- Si vous utilisez un utilitaire tel que CTYPE, permettant 
de modifier la taille du curseur, il faut répondre "N" 
aux deux questions car le programme remet un 
curseur fin et ne restitue pas la bonne taille en fin 
d'exécution. 


- Si vous utilisez 95BupDY, et quelques soient les 
réponses, le curseur sera toujours celui affiché par le 
driver (normalement trois pixels d'épaisseur), que ce 
soit en mode Insertion ou en Overwrite. 


Note : si vous êtes un utilisateur des éditeurs Borland, 
et que que vous désirez utiliser le programme sur PC, 
ne répondez pas "Y" et "N". En effet, QEDIT a le petit 
désavantage d’afficher le curseur de facon inverse à 
notre habitude : fin en mode "overwrite" et gras en 
"insertion". D’où de nombreuses fautes de frappe... 


Get num rows on screen from BIOS ? 

Même si le HP95 possède un écran de 16 lignes, son 
BIOS retourne la valeur 25. Cette option étant donc 
sans utilité, répondez "N". 


Number of rous on screen... ? 

Ici, il faudrait répondre "16", mais le programme 
d'instalation n’acceptant que 25 lignes au minimum, 
nous ne pouvons que mettre cette valeur. Nous 
corrigerons ce problème un peu plus tard. 


Do you want the return command to split Lines... ? 
A moins que vous mutilisiez un éditeur un peu 
exotique, vous pouvez répondre "Y". 


Should Cut and Copy use current Line if no block... ? 
J'ai répondu "Y", mais cela est un choix personnel. 


Amount of memory to reserve from DOS... ? 

Je nai pas testé cette option, et ai répondu "O0". 
N'ayant pas eu de problème, je vous invite à répondre 
ainsi... 


Code generated by ALT numeric keypad... ? 
Là non plus je n’ai pas fait de test, mais la valeur "0" 
fonctionne parfaitement. 





Do you nant the ESCAPE command to invoke the menus ? 
Ayant assigné la barre des menu sur une autre 
touche, j'ai répondu "N". De toutes façons, je pense 
que l'activation des menus par cette touche n’est pas 
très ergonomique. 


Should the editor restore the starting drive/dir. 
J'ai répondu "Y", mais vous êtes libres de faire 
autrement... 





Should editor change the DOS PROMPT during shell ? 
Repondez "Y", car il est toujours interessant de savoir 
que vous êtes dans um processus fils de EDIT... 


Should [TabRt]/[Tablt] be allowed to shift a block ? 
Puisqu’on nous le propose, répondons "Y" ! 

















Colors/screen 


Comme vous pouvez vous en douter, cette option 
permet de gérer l'affichage. 


Statusline position... ? 
Je pense qu’elle est plus lisible en haut. J'ai donc 
dépondu "T". 


Status Line fill character... ? 
La réponse par défaut (l’espace) me semble la plus 
lisible. 


Do you want the display boxed ? 
L'écran du HP95 étant déjà petit. 
rigueur ! 


Réponse "N" de 





Do you want the original screen restored... ? 
Pourquoi pas ? 


Do you want snow checking ? 
Inutile, cela fonctionne très bien. 


Colums to scroll horizontally for rt/lt commands... 
Cette valeur est utilisée par les commandes 
ScreenLeft et ScreenRight. Un valeur de 35 me parait 
bonne, mais vous pouvez aussi ne décaler que la 
moitié de l'écran (en spécifiant 20). 


Les parametres suivants concernent les couleurs 
affichées. Le HP95 n’acceptant que deux couleurs 
(Blanc et Noir), notre choix est limité aux attributs de 
codes 7 (caractères Noirs sur fond Blanc, pour le 
HP95 qui est inversé par rapport a un écran vidéo) et 
112 (caractères Blancs sur fond noir). Vous pouvez 
utiliser les valeurs suivantes : 


Blocked Text: 112 
Error msgs: 112 
Text Area: 7 
Status Line: 12 
Cursor Line: 7 
Messages: 7 
Hi-Lited items: 112 


EOF Line/indicator: 7 


Help screen: 112 
Box borders: 7 

PopUp windons : 112 
Menu items: 172 


Selected Menu items: 7 


Notez que le curseur n’est pas apparent lors de 
ouverture de certaines boites de dialogue ou à 
l'intérieur des blocs sélectionnés. Cela n’est pas la 
faute du programme, mais celle du HP95 lui même. 


Do you want the del_ch command to join Lines... ? 
La réponse "Y" reflete le fonctionnement habituel des 
éditeurs. 





Should PQuit, Exit & File return to Editfile Prompt ? 
Repondre selon vos convenances personnelles. 


Do you want the editor to start in wordurap mode ? 
Si vous comptez utiliser le programme pour taper du 
texte, répondez "Y", Si vous prévoyez de faire autre 
chose (sources C/assembleur...), répondez "N". De 
toutes façons, vous pouvez changer facilement de 
mode en assignant la commande Toggleordrap à une 
touche fonction. 


Default right margin for wordwrap... ? 

Une valeur de 38 permet de ne pas créer de scrolling 
horizontal lorsque on arrive en fin d'écran. Vous 
pourrez utiliser la commande SetMargin pour modifier 
cette valeur en cours d’édition. 


Les autres questions concernent plutôt des choix 
personnels. A titre indicatif, voici mes réponses : 


Do you want the editor start in insertmode ? : Y 
Do you want the editor start in autoindent mode ? 
Do you want the editor use sticky autoindent ? : N 
Load wildcarded filespecs from the command line ? : Y 
Load wildcarded filespecs from inside the editor ? 
Do you want editor start in enter matching mode ? : N 
Use CMODE for .c, .cpp... files ? : N 

Default number of deleted Lines : 30 

Remove trailing blanks from edited 
Delete white space after words ? : Ÿ 


sY 


Lines 2: Y 


Terminate files with a Control Z ? 
Do you want backups of saved files 
Prompt for filename on open window 
Close window when a file is quit ? : Y 
Display End Of File marker ? : N 

Insert Line blocks ABOVE the cursor Line ? : Y 
Do you want a beep on warning messages... : N 
Default Find options [IWBGI : 16 

Default Find_Replace options [IWBNG] : IG 


% 4 un 


Default file extension number 1 : .txt 
Default file extension number 2 : .doc 
Default file extension number 3 : .c 
Default file extension number 4 : .asm 
Default file extension number 5 : .h 
Default file extension number 6 : .inc 


Je n’ai pas modifié les autres parties de la 
configuration (impression et tabulations). Comme les 
options précédentes, les réponses concernent plutût 
des convenances personnelles. 


Une fois toutes ces options spécifiées, vous pouvez 
sauver les modifications et sortir du programme. 
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Cependant, notre travail n’est pas terminé, puisque 
notre programme fonctionne uniquement en 25 
lignes. Occupons nous maintenant du problème. 


Conversion du programme en 16 lignes d’affichage 


En voyant le processus de configuration, il est 
aisément compréhensible que toutes les valeurs que 
nous venont d'entrer seront stockées dans des 
variables du programme. Il n’y a donc probablement 
qu’une occurence de chaque valeur dans le code de 
chaque programme. 


11 faut donc pouvoir modifier cette variable qui nous 
interesse et qui contient la valeur 25 et la remplacer 
par 16. Cela est tout à fait possible avec un editeur de 
fichiers binaires tel que celui inclus dans PCTOOLS. 


Seul petit problème, lequel des 46000 octets du 
programme est celui qui nous intéresse ? 


Pour le savoir effectuez les manipulations suivantes : 

- Copiez le fichier a.EXE dans Q2.EXE. 

- Relancez le programme acoNFiG en spécifiant cette 
fois-ci a2.EXE comme programme à configurer. 

- Relancez la configurations des options avancées, en 
ne changeant que la question concernant le nombre 
de lignes (toute autre valeur que celle initiale 
convient). 

- Sortez du programme de configuration (sans oublier 
de sauvegarder). 

-Enfin, exécutez la commande Dos Fc, qui donne la 
liste des differences entre les fichiers : 


\dos\fe qexe q2.exe 


Si tout s’est bien passé, une seule différence 
apparaitra et l'adresse correspondante sera affichée. 
Si vous utilisez la version diffusée par le club, ce sera 
A18E. Notez que cette adresse est conservée quelque 
soient les modifications de configuration. Vous n’avez 
donc pas à refaire la manipulation que je viens de 
décrire si vous utilisez la version 2.15. 


Maintenant que nous connaissons l'adresse à 
modifier, nous pouvons éditer le code du programme 
pour en modifier le contenu. 


Le fait de garder Q.ExE intact a deux avantages : 
Premièrement, vous gardez ainsi une copie de 
sécurité, sur laquelle vous pourrez relancer 
éventuellement la configuration. Deuxiemement, vous 
pourrez utiliser cette version du programme en plein 
écran sur votre PC. 


La prochaine étape consiste donc à recopier Q.EXE 
sous un autre nom, GED95.EXE par exemple. 


Ensuite deux solutions se présentent à vous, suivant 
les utilitaires en votre possession et le nombre de 
reconfigurations que vous aurez à faire : 


Solution n°1 


Si vous possédez un éditeur de fichiers binaires (tel 
que celui inclus dans PcTooLs, lancez le avec QED95 .EXE 
comme paramètre, et en affichant son "dump". Aux 
environs des neufs dixièmes du code, vous verrez les 
données suivantes (pour raisons de mise en page, j'ai 
éliminé certaines colonnes Hexa) : 


Adresse --Codes hexa-- Valeur ASCII 
A100 4E 39 8A NPBSH| TVWXYI 9 
AIO 88 6162 1;3878 klm.ab 
A120 63 2E 70 cd .]_ ""%)*-.p 
A130 71 00 FO greftno 1G 
A140 20 20 20 @Œdit v2.15 
A150 41 00 43 August, 1991 C 
A160 6F 39 38  opyright (C) 198 
A170 35 6172 5-1991 by SemWar 
A180 65 7265 e, all rights re 
A190 73 70 00 served pp p 
A1AO 07 OF 00 PPP 
A180 70 1900 p.. v 
A1CO 27 0001 ’* 7# 
A1D0 01 01 00 
AIEO 01 00 00 
A1F0 00 00 49 C["O1"IG I 








L’octet qui nous interesse est souligné, en avant 
dernière position de la 12eme colonne. Cela est 
verifié par sa valeur : 19h soit 25 en décimal. Il nous 
suffit donc de la remplacer par 10h (16 en décimal). 


N'oubliez pas, le cas échéant de sauvegarder la 
modification. 


Solution n°2 


La méthode que je viens de citer fonctionne 
parfaitement, mais est très vite fastidieuse lorsque on 
reconfigure le programme un grand nombre de fois. Il 
est donc préférable de créer un petit programme pour 
faire le travail à notre place : 


DOSSEG 
segment para CODE’ 
assume cs:code 

RG 100h 

start: jmp strt 


code 


POSBYTE EQU OA1BEh ; pos. octet à modifier 
VALBYTE EQU 16 ; val. octet à modifier 
POSCHK EQU OA14Ch ; pos. octet de controle 











VALCHK  EQU 
FNAME DB 
msg_ok DB 
msg_bad DB 
buffer DB 


035h 
MQED95.EXE",0 
“File Converted' 
"Bad Fil 
@) 


valeur octet controle 

nom du fichier 

,13,10,"8" 

,13,10, 
; buffer Lecture/ecriture 








strt: ax,3d02h 
dx,offset FNAME 
21h 

je error î 
bx,ax 

ax,4200h $ 
C7 

dx, POSCHK 

21h 

je error 

ah,3Fh ; 
ex,1 

dx,offset buffer 
si,dx 

21h 

jc error 

byte ptr [sil,VALCHK 

error ; mauvaise valeur, erreur 
ax,4200h ; posit. /octet à modifier 
cx,cx 

dx, POSBYTE 

21h 

je error 

byte ptr [si], VALBYTE 


; ouverture fichier 


si carry -> erreur 


posit. sur oct. contr. 


Lecture octet controle 


; nouvel Le valeur 
; dans buffer 
ah,40h ; Ecriture nouvelle valeur 
ex,1 

dx,si 

21h 

je error 

ah,3eh ; 
21h 

exit 

dx, offset msg_bad 
exit_1 

dx,offset msg_ok 
ah,09 : 
21h 

ah,4ch : 
21h 


Fermeture du fichier 


error: 


exit: 
exit_1: affichage message 
sortie 


Code 
start 3 That's ALL Folks ! 

Ce programme place la valeur VALBYTE en position 
POSBYTE, après avoir vérifié que l’on soit dans le bon 
programme (et qu'il ne soit pas compressé) en 
comparant loctet contenu en position PoscHK à la 
valeur VALCHK. Ici, il s’agit du "5" de la chaine "œŒdit 
v2.15" affichée dans le dump de la solution n°1. 


Vous trouverez les codes Hexa de ce programme 
dans le Coin des codes, en fin de ce journal. 


C’est presque fini ! 


Le programme est maintenant configuré en 16 lignes 
et est prêt à être transféré sur votre HP95. 


Cependant, avant cela, vous pouvez compresser le 
programme à l’aide de d’un programme tel que 
PKLITE Ou DIET (qui donnent des taux de compressions 
équivalents). Notez qu’une fois compressé, le 
programme ne peut plus être modifié par QCONFIG. 
D'où l’interêt de conserver Q.EXE... 


Enfin, pas tout à fait... 


Une fois que vous aurez configuré cette premiere 
version du programme, vous pourrez commencer à 
vous familiariser avec l'éditeur. Je vous incite à refaire 
plusieurs fois l'installation en changeant les 
paramètres et en essayant les différentes commandes 
disponibles (elles sont déjà pratiquement toutes 
assignées sur le clavier). Une fois que vous aurez 
défini une liste de vos commandes préférés, je vous 
conseille de les assigner aux touches fonctions, en les 
regroupant (commandes de blocs, contrôle des 
fenêtres, accès aux fichiers...) par touches et par type 
d'accès (Shift, Alt, Ctrl...) de façon a avoir quelque 
chose de logique et aisément memorisable. 


Facile cette dernière étape ? Pas sûr... C’est celle qui 
m’a posé le plus de problèmes ! 


Enfin, si vous désirez réduire de quelques octets la 
taille de lexécutable, vous pouvez ensuite effacer 
certaines assignations décrites dans le fichier original 
(une grande partie des touches accessibles par Alt, 
par exemple). Attention cependant à ne pas effacer 
les commandes de base... 


Jacques Belin (123) 


Note importante pour les utilisateurs de 95BUDDY : Peu avant la 
mise en page de ce journal, j'ai constaté un problème lorsque ce 
driver est présent. En effet, si une commande est assignée à la 
touche [Ctrl] [al, cette commande est exécutée lorsque la 
touche CHAR est pressée. Il convient donc de désactiver la ligne 
"ra" du fichier de configuration du clavier. N'ayant pas eu le 
temps de contrôler si d'autres touches posaient des problèmes, je 
vous conseille d'être prudent. 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d’entrer un programme HP48 dans un fichier 
MS-DOS à l’aide du programme Makevos. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 et HP28S 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes. 


Tapez les deux programmes correspondant à votre 
machine: 

- pour HP-48 : ASSCODA48 et INPUT48 

- pour HP-28$ : ASSCOD28 et INPUT28 

(attention aux parties communes et spécifiques HP-48 
ou HP-28S et aux commentaires) 

Ceci avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. La 
commande SPEED (JPC-85 page 12) peut être incluse 
au début de ASSCOD28. NEWLINE (-) s'obtient sur 
HP-48 par [flèche bleue] puis [.]. 


ASSCOD48 996.5 octets 
cksum # 5D1Bh 


ASSCOD28 1136 octets 
cksum # D419h 


« RCLF HEX 64 STWS 1 SF " ’tmpcod’ STO 
“nombre d'octets @ + NEWLINE 


@ NEWLINE 
"17 INPUT4B 1 CF STR-+ 2 * 16 @ INPUT28 
DUP2 / IP 3 ROLLD MOD DUP2 O > + @ si HP-28S 


3 ROLLD 1 + 4 ROLL # Oh DUP + nr f s o « 1 SWAP 

FOR i 

DO "Ligne " i 1 - R-B # 1000h + -STR 4 6 SUB + DUP 
” @ NEWLINI 
chaine @ + NEWLINE 








IF THEN r DUP 4 / IP + SWAP OVER 1 SMAP OVER - 
SUB SAP 18 + ELSE 38 END ‘o’ STO + 

“ @ NEWLINE 

"+ 1 FS2C IF THEN ROT SWAP CLLCD 1 DISP HALT 
ELSE o INPUTéB END DUP  @ INPUT 

WHILE DUP " " POS DUP @ si HP-28S 

REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 

1 + 25 SUB IF DUP # " == THEN DROP ELSE + END 

END DROP O OVER SIZE 1 SWAP 

FOR j OVER j DUP SUB NUM j * + NEXT 

S + DUP # FFFh AND 





" @ NEWLINE 

somme de controle @ + NEWLINE 
= @ + NEWLINE 
#" 6 ROLL SAP + 34 INPUT4B STR-+ == @ INPUT28 

IF THEN SWAP DROP 1 @ si HP-28S 


ELSE DROP2 1000 1 BEEP 1 SF O END 
UNTIL END ’s’ STO 
MHILE DUP " # POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 19 SUB + 
END DROP ’tmpcod’ DUP RCL ROT + SWAP STO 
NEXT f STOF » tmpcod 
@ * HP-48 + @@ “eeerrensesens p.2gS eesressnrenneenns 
"GROB 8 " @@ # 20204A04F3D02C67h # F80004F02C96040Ch 
OVER SIZE @@ # 8DCCOS081F804F27h # 313103190F818341h 


2/7" @@ # 681808AE91851391h # 45DC061171085168h 
++ SWAP @@ # F3D3CEAA125E5SD8Eh # 2F9004h 28 STUS 
+ STR+  @@ #0 OR 64 STWS 1 7 START # 3B82h SYSEVAL 
# 4017h @G@ NEXT # 20238h SYSEVAL # 4F3Dh SYSEVAL 
SYSEVAL  @G@ EVAL 

# 56B6h  @@ toutes ces lignes marquées @@ peuvent 
SYSEVAL  @@ être remplacées par ASC+ : 


DROP @@ soit pour HP-48 (JPC-79 page 11) 
NEWOB @@ ou pour HP-28S (JPC-85 page 8) 
“fin® CLLCD 1 DISP » @ HP-28$ dito 


INPUT48 412.5 octets 
cksum # 15C7h 


INPUT28 228 octets 
cksum # 9412h 


< SAP 1 @ partie commune 
MHILE OVER CLLCD 1 DISP @ HP-48 et HP-28 
REPEAT @ puis séquence 

DO UNTIL KEY END @ HP48 ou HP-28 





@ *rrrteeses Hp4g serres D ste FIP2BS vers 
IF DUP 51 == THEN DROP 0 @@ 1F DUP MENTER" == 
ELSE IF DUP 55 == THEN DROP  @@ THEN DROP 0 

1 OVER SIZE 1 - SUB @@ ELSE 
ELSE @@ IF DUP "BACK" == 
CASE DUP 17 < THEN 54 + END @@ THEN DROP 1 OVER 
DUP 66 < THEN 7 - END @@ SIZE 1 - SUB 
DUP 76 < THEN 20 - END @@ ELSE 
DUP 86 < THEN 33 - END @G@ suite voir HP-48 
92 == THEN 48 END @@ 
46 END CH @@ 
+ DUP SIZE 3 PICK - 2 + 5 MOD NOT @ partie 
1 FC? AND IF THEN " " + END END 1 @ commune 
END END SWAP 60 SUB » @ HP-48 et HP-28 















Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante : 


1- lancez le programme ASSCOD48 ou ASSCOD28 

2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3-tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4-tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d’un B8EEP. L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Alors relancez avec CONT. 

5- après l'affichage de "fin" stockez le programme 
assemblé dans la variable donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 


Programmes HP-71 


Mode d'emploi : 


1- Lancer le programme : RUN MAKELEX2 

2- Entrer la taille du fichier. 

3- Entrer les listes de codes puis le checksum. En cas 
d'erreur corriger la ligne que vous venez d’introduire. 
4- Une fois que toutes les lignes sont entrées, éteindre 
le HP-71, puis le rallumer. 


Notez bien que cette MAKELEX2 et les codes Hexa parus 
dans ce journal sont incompatibles avec MAKELEX, qui a 
servi dans les JPC antérieurs au numéro 81. 


Programmes MS-DOS 


Afin d’être utilisé par tous, ce programme est destiné 
à être écrit en Gw8asic. Il devrait cependant être facile 
de le convertir pour un autre programme (a8ASic, 
Turbo BASIC...). 


Mode d'emploi : 


1- Lancer le programme : GWBASIC MAKEDOS.BAS 

2- Entrer le nom du fichier destination. 

3- Entrer la taille du fichier. 

4- Entrer les listes de codes puis le checksum (en 
prenant soin d’entrer les codes héxadécimaux en 
majuscules). En cas d’erreur corriger la ligne, en 
prenant soin de placer le curseur après le dernier 
caractère avant de taper sur la touche d’entrée. 





5- Une fois que toutes les lignes sont entrées, sortir 
du Gwsasic en exécutant la commande SYSTEM. Le 
nouveau programme est immédiatement disponible. 


Note : La taille du fichier résultant peut être 
supérieure d’un octet à ce qui est affiché dans le 
listing. Cela n’est pas un problème. 


* 
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MAKELEX2 


























10 SFLAG -1 à DIM ES$[40],C$[40] à LC OFF à PURGE AH à INPUT "Nb d'octets : ";N 
20 CREATE DATA AH,1,N-4 à B=HTD(ADDRS("AH")) @ +37 à N=2*N+37 @ N1=N DIV 16 
30 L9=MOD(N,16)+(MODCN,16) DIV 5) à S=0 à PS=! 
40 IF MOD(N,16)=0 THEN N1=N1-1 @ L9=LENC(PS) 
50 FOR X=0 TO N1 
60 IF X=N1 THEN PS=P$[1,L9] 
70 C$S=P$ 
80 M=S à DISP DTHS(X)[3]; à INPUT ",C$;C$ à INPUT " sm = 
90 FOR Z=1 TO LEN(C$) 
100 IF C$[Z,Z]#" " THEN M=M+(Z-(Z DIV 5))*NUM(CS[Z]) 
110 NEXT Z 
120 IF DS#DTH$(MOD(M,4096))[3] THEN PRINT "Erreur de somme" à BEEP à GOTO 80 
130 IF X=0 THEN ES=C$ 
140  1F THEN ES$=ES&CS 
150 IF X=2 THEN C$=C$[7] 
160 IF X>1 THEN GOSUB 210 
170 S-M 
180 NEXT X 
190 C$=E$ à A=B à GOSUB 210 à CFLAG -1 
200 END 
210 FOR Z=1 TO LEN(CS) 
220 IF C$(Z,Z]#" " THEN POKE DTH$(A),C$(Z,2] @ A=A+1 
230 NEXT Z @ RETURN 
MAKEDOS.BAS 
10 INPUT “Nom du fichier : ",NOM$ : INPUT "Nombre d'octets : ",N : N=N*2 
20 OPEN NOMS FOR OUTPUT AS #1 : CLOSE #1 : KILL NOM$ 
30 OPEN "bin.tmp" FOR OUTPUT AS #1 : S=0 : P$=! 
40 NLINES=N\16 : LENLAST=(N MOD 16)+((N MOD 1615) 
50 IF CN MOD 16)=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS) 
60 FOR X=0 TO NLINES 
70 IF X=NLINES THEN PS=LEFTS(PS, LENLAST) 
80 cs$-P$ 
90 X2S=MO0MHHEXS(X) : PRINT RIGHTS(X2$,3) 
100 Y=CSRLIN : LOCATE Y,6 : PRINT C$; : LOCATE Y,6 : INPUT 
110  LOCATE Y,27 : PRINT " sm = - LOCATE Y,33 : INPUT 
120 M=S 
130 FOR Z=1 TO LEN(CS) 
140 IF MIDS(CS,Z,1)<>" THEN M=(M+((Z-(Z\5))*ASC(MIDS(CS,Z, 1333) MOD 4096 
150 NEXT Z 
160 D2S="OO"+HEXS(M) : D2S=RIGHTS(D2$,3) 
170 1F D2$<>D$ THEN PRINT "Erreur de somme" : BEEP : GOTO 90 
180 FOR Z=1 TO LEN(C$) STEP 2 
190 IF MID$(C$,2,1)=" " THEN Z=Z-1 : GOTO 230 
200 CH=ASC(MIDS(CS,Z,1))-48 : IF CH>9 THEN CH=CH-7 
210 CL=ASC(MIDS(CS,2+1,1))-48 : IF CL>9 THEN CL=CL-7 
220 PRINT#1,CHR$((16*CH)+CL); 
230 NEXTZ 
240 S=M 
250 NEXT X 
260 CLOSE #1 : NAME "bin.tmp" AS NOMS : END 














ADDR28S 
# 6625h 


000: 
001: 
002: 
003: 


0123 4567 89AB 


76c2 
3F40 
0001 
7179 


REV28S 
# 417Ch 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 


0123 


76c2 
c170 
0202 
008F 
D814 
5c9c 
1811 
7100 
F200 


PEEK28S 
# C293h 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 
00c: 


0123 


7éc2 
B000 
407A 
co17 
3517 
478A 
0713 
10c8 
818F 
5113 
A15B 
1481 
08DD 


POKE28S 
# 2E8Ch 


000: 
001: 
002: 
003: 
004: 
005: 


0123 


76c2 
9000 
7061 
908) 
18F8 
0713 


O1E3 
5E02 
4317 
8058 


4567 


01E3 
76c2 
co040 
72F4 
3131 
9134 
4F14 
5BE8 
9F20 


4567 


04C3 
1471 
208A 
9143 
4E71 
66D1 
ÉLELY 
FAB9 
A414 
1313 
O9EA 
6117 
F7F1 


4567 


04c3 
8F18 
4334 
815C 
4819 
7061 


COF2 
069€ 
4E71 
4400 


89AB 


cO5A 
0D3F 
69c2 
08F1 
1791 
819F 
A149 
D5E5 


CHP28) 
32 octets 
CDEF sm 
co1D E80 
20D1 BBB 
4713 7C8 
9F20 4F0 
CHP28) 
68 octets 
CDEF sm 
7C07 E08 
40A4 BF2 
0150 7C8 
8050 4A5 
3713 014 
1541 CEA 
1401 9EE 
2109 819 
FB2 
CHP28) 


102.5 octets 


89A8 


co69 
3706 
2908 
1020 
4713 
7914 
cé81 
E118 
4164 
1935 
8081 
OcD5 
09F2 


89AB 


c069 
0501 
E4A2 
0174 
F010 


CDEF sm 
c209 D85 
1433 888 
DB15 68A 
A071 308 
7061 EDD 
7108 BFE 
8F29 9DE 
411C 805 
11AD 580 
DIAE 37A 
8606 07 
2E11 DBA 
0 204 
CHP28) 
91.5 octets 

CDEF sm 
C20E E45 
4713 904 
08A2 713 
1438 398 
0174 FA6 
7137 840 


7414 


006: 1433 407A 208A 65C1  8A2 
007: 7914 7134 0713 5118 3FF 
008: D531 935A 1148 SEAB 205 
009: 0818 6861 5801 6017 E4E 
O0A: 1CD5 5E8D 5E52 1A11 C1C 
00B: 2009 F20 1FC 
DSIERREC CHP48) 
# F56Bh 229 octets 

0123 4567 89AB CDEF sm 
000: D9D2 028A 81D9 F819  EC3 
001: FF30 D9D2 0881 3083 B47 
002: 7A28 DA16 OCA3 O18A  94A 
003: 3032 2300 O9A2 68FA  73F 
004: 2ED2 A232 2300 7AA2  44D 
005: AEC8 19FF 306€ 4269 261 
006: Bc26 F851 149F 21CF 141 
007: 1462 50F4 3223 OCCD F87 
008: 2093 1008 F20A 16AC DAB 
009: 0450 B448 F146 6010 981 
O0A: 08FB 9760 1897 F101  6FC 
008: 4234 B550 78A2 9034 37C 
O0C: AD60 8134 1421 3016 E93 
00D: 4142 1361 34C2 1351 A34 
O0E: cO81 8F8E 1641 468F  84C 
00F: 42F3 OD7D 0118 CEO6  65D 
010: AB51 37EB 1351 3408 2CA 
011: 160A B60E 3594 AA09  OFC 
012: 3ADO 5709 3E50 850A E4A 
013: 3D45 6AB6 0E35 94AA  D32 
014: 093A D057 093E 5085  A50 
015: 1A3D 434A B60E 3594 824 
016: AA09 3ADO 5709 3E50 573 
017: 852A 3D41 2AB6 0E35 367 
018: 94AA 093A DO57 093E  17C 
019: 5085 3A3D 0915 CO46 E8B 
O1A: 06C6 FB34 O7A3 E460 C3F 
01B: 6D4F 8D34 150F 2293 956 
O1C: 8213 0B21 30 468 
DSIERISO CHP48) 
# AAGAh 255 octets 

0123 4567 89AB CDEF sm 
000: D9D2 02BA 81D9 F819  EC3 
001: FF30 D9D2 0881 3083 B47 
002: 7A28 DA16 OCA3 018A  94A 
003: 3032 2300 O9A2 68FA  73F 
004: 2ED2 A232 2300 7AA2  44D 
005: AEC8 19FF 3060 4269 261 
006: BC26 F851 149F 21CF 141 
007: 1462 50F4 3223 OCCD F87 
008: 20D6 1004 CO8F 20A1 DIE 





6450 
08F8 
4234 
AD60 
4142 
co81 
42F3 


37E8 
9554 
2858 
0816 
093A 


AA09 
8514 
AAA 
5085 
359% 
3E50 
4606 


2293 


GSIERREC 
# EO5Dh 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
O0C: 
00D: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 


0123 


D9D2 
FF30 
7A2B 
3032 
2ED2 
AEC8 
2230 
20A1 
8976 
7108 
F183 
0118 
1341 
3594 
3E50 
0E35 
093€ 
B60E 
5709 
2AB6 
D057 
0915 
07A3 
D276 


8448 
9760 
8550 
8134 
1361 
8F8E 
0072 
50D5 
1351 
8940 
9157 
0AB6 
D057 
456A 
3AD0 
3043 
093A 
2A3D 
AA09 
853A 
céFB 
1F20 
B213 


4567 


02BA 
D9p2 
DA16 
2300 
A232 
19FF 
ccp2 
éAc2 
0147 
1098 
1361 
CE06 
3508 
AA09 
850A 
94AA 
5085 
3594 
3E50 
0E35 
093€ 
co46 
E460 
3082 


F146 6010 92A 
1897 F101 675 
78A2 9034 2F5 
1421 3016 EOC 
34C2 1351 9AD 
1641 468F 705 
0118 CE28 614 
7027 1701 210 
3416 0088 DF8 
4893 D589 B71 
8900 7570 76C 
0E35 94AA 616 
093E 5085 334 
B60E 3594 121 
5709 3E50 E70 
4AB6 0E35 C83 
D057 093E  A98 
412A B60E  90C 
3AD0 5709 698 
3D09 15C0 3F9 
3407 A3E4 267 
8034 150F FFA 
0821 30 559 


CHP48) 
192 octets 


89AB CDEF sm 


8109 F819 EC3 
0881 3083 847 
OCA3 018A  94A 
O9A2 6BFA  73F 
2300 7AA2  44D 
3060 4263 201 
OD01 O08F FA9 
4508 468F  E09 
1351 7414 980 
F385 1118 630 
2807 1C0D 48F 
AB51 37EB 385 
160A B60E 158 
3ADO 5709 EE7 
3D45 6AB6  D66 
093A D057  B77 
1A3D 434A  94D 
AA09 3ADO 7BB 
852A 3D41 509 
94AA 093A 371 
5085 3A3D 166 
0écé FB34 F96 
6D4F 1138 DO8 
1308 2130 88€ 
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000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 
008: 


00D: 
O0E: 
00F: 
010: 
o11: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 


OA: 
018: 








GSIERISO 
# 897Ch 


0123 


D9D2 
FF30 
7A28 
3032 
2ED2 
AEC8 
2230 
20A1 
B976 
7108 
F183 
0118 


: 7027 


3416 
4893 
8900 
0E35 
093€ 
B60E 
5709 
4AB6 
D057 
4124 
3AD0 
3D09 


: 3407 


1138 
2130 


CIRCLE 
# 8FB7h 


4567 


02BA 
D9D2 
DA16 
2300 
A232 
19FF 
ccp2 
6AC2 
0147 
1098 
1361 
CE28 
1701 
0088 
D589 
7570 
94AA 
5085 
3594 
3E50 
0E35 
093€ 
B60E 
5709 
15C0 
A3E4 
D276 


89A8 


8109 
0881 
OCA3 
09A2 
2300 
306c 
0141 
4508 
1351 
F3B5 
2807 
0648 
37E8 
9554 
2858 
0816 
093A 
0A3D 
AA09 
8514 
JLAA 
5085 
3594 
3E50 
4606 
606) 
3082 


0123 4567 89AB 


: D902 


9020 
B976 
1471 
0B75 
4234 
AD60 
16EA 
8135 


OFDE 
ccD2 
0201 
3517 
1206 
8550 
8134 
D014 
17F7 


813A 
01n2 
3713 
4137 
1897 
78A2 
0714 
281C 
on11 


28AC 6061 B081 
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CHP48) 
218 octets 
CDEF sm 
F819 EC3 
3083 847 
018A  94A 
éBFA 73F 
7AA2  44D 
4263 201 
008F F17 
468F  D77 
7414  BEE 
1118  5AB 
1C0D 3FD 
50D5 259 
1351 EEB 
8940 B15 
9157 809 
OAB6é 514 
D057 325 
4564  12C 
3ADO F9A 
3D43 CFD 
093A  B67 
2A3D 94F 
AA09 780 
853A 4FB 
CéFB 3CF 
1F20 157 
130B E24 
011 
CHP48) 
378 octets 
CDEF sm 
040D E59 
008F C53 
5108 797 
1351 2DA 
F101 F98 
9034 ci18 
2132 73C 
C212 464 
8414  OEA 
CEE FB9 








00A: 2813 
008: 476A 
O0C: 1420 
00D: 1cD6 
O0E: 2C43 
00F: 9604 
010: OFBO 
011: D512 
012: 4600 
013: 0911 
014: 6078 
015: 0119 
016: FA10 
017: AFA1 
018: 0724 
019: A10A 
OA: 1912 
018: 505E 
O1C: 5430 
01D: A146 
O1E: 6913 
O1F: CD5B 
: CA14 
0E02 
c213 
D59F 
E159 
B8c1 
: FAC7 
0324 
AD2A 
1800 
71F8 
FC90 
0000 
020: 4A00 
O2E: AOE5S 
02F: 2130 


SIERPILX 


0123 


3594 
802E 
CA10 
F710 


5174 
1440 
c81c 
D718 
4300 
0758 
E119 
AE9C 
00c2 
2E24 
3007 
FA10 
9693 
0A70 
048c 
7230 
AFA1 
c129 
7031 
8BE0 
6134 
F135 
6184 
AB58 
5301 
1580 
0070 
5100 
ABA3 
0098 
B617 
021 
1c00 
0013 
1337 
FA03 
AFOD 


4567 


5425 
0000 
O86E 
0000 


1471 
FA10 
B1CE 
4D21 
00E2 
007 
5E01 
écéc 
0611 
D811 
2080 
9623 
0119 
5064 
7920 
447 
0987 
FAT2 
1420 
OC4D 
1845 
0611 
8BE8 
1c81 
5504 
94FE 
188c 
7030 
2005 
270A 
D133 
5712 
1337 
3781 
D00D 
ABB5 
0182 


89AB 


0594 
0000 
FEFO 
0000 


0040 00D9 3594 


3517 B40 
A164 861 
4E48  79F 
0911 41A 
0611 F72 
A243 C46 
2ACE B6é6 
A203 9FC 
9Eéi 679 
98A6 488 
3415 OAS 
0119 C9 
FA12  9BC 
2084 5B8 
A1AF 383 
6101 FAB 
0008 c27 
9164  97A 
110E 584 
BD51 499 
40c2 OCB 
1118 D2B 
B303 AF6 
c137  85D 
06A0 484 
00E0 308 
OE0E 172 
015F E79 
9BEC E00 
F202 AE9 
EA13 8EA 
3D1D 67 
9201 21C 
O1F6é EFD 
BE99 DAC 
40C8 BFA 
1308 996 
B83 
CHP-71) 
212 octets 
CDEF sm 
C485  CDB 
0000  6BD 
0000 401 
0000  DAB 
5425 9CF 





005: O5EF 1FF8 
006: F38D 3939 
007: 8DE6 A202 
008: F8F6 81F0 
009: 40F8 1301 
O0A: OBA6 AB34 
008: 6F14 2136 
O0C: 1461 3018 
00D: 008B 6280 
O0E: 6AB5 O0D57 
00F: 6EB1 3413 
010: 5548 9404 
o1 1578 
012: 8170 AB60 
013: 93AD 0570 
56AB 
015: A093 ADO5 
016: 52A3 D434 
93AD 
A3D4 
A093 
5043 
6FB3 
O1C: 0601 F8D8 








PATQED95 . COM 


0123 4567 


000: EB27 5145 
001: 4558 4500 
002: 2043 6F6E 
003: 6564 ODOA 
2046 696€ 
0088 0230 
2172 4188 
007: 3309 BA4C 
008: 33B4 3FB9 
009: 0188 F2CD 
O0A: 3C35 7520 
008: C9BA BEA1 
O0C: C604 1084 
00D: 8BD6 CD21 
O0E: CD21 7305 
00F: 03BA 0C01 
010: B44C CD21 





D91F 
0803 
FFFF 
8FBC 
4234 
0A00 
134C 
ODA3 
époc 
0271 
5170 
8930 
9007 
E359 
93E5 
60E3 
7093 
AB60 
0570 
1248 
ADO5 
D091 
407A 
4A80 


89AB 


4439 
4669 
7665 
2442 
650D 
BAO2 
D8B8 
A1CD 
0100 
2172 
B800 
co21 
4089 
7206 
BA1D 
B409 


B031 898 
9450 589 
&FFF 7AF 
6314 60€ 
222E 23€ 
0D71 F4A 
A164 C20 
4002 810 
E280 679 
6013 238 
0889 E64 
5892 B8F 
5700 739 
49AO  4F2 
0853 100 
5949 FC3 
E508 DOD 
E359  B2B 
93E5  8F3 
60E3 712 
7093 434 
5D04 157 
3E46 F99 
F 4A3 
CMS-DOS) 
132 octets 

CDEF sm 
352E CF2 
écées 9F1 
7274 718 
6164  33E 
OA24 09€ 
01CD FO4 
0042 COD 
2172 ATC 
BA28 824 
2580 4FE 
4233  OB2 
7214 E83 
0100 A39 
B43E 860 
O1EB 732 
cD21 51F 
D3E 











Le Journal JPC est le bulletin de liaison entre les 
membres de l'Association “PPC Paris”, régie par la loi 
de 1901. Le Club est éditeur de JPC, et son siège 
social est au 56, rue Jean-Jacques Rousseau, 75001 
Paris. 


PPC Paris est le représentant Français de HEX 
(Handhelds European (Clubs EXchange), la 
fédération des principaux clubs Européens 
d'utilisateurs de calculateurs HP. 


La maquette de ce numéro a été préparée et réalisée 
par Jacques Belin et Asdin Aoufi. 


Les dessins sont de Jean-Jacques Dhénin et Paul 
Courbis. 


Les informations et programmes parus dans ce 
journal sont publiées "Tels quels" et ne peuvent en 
aucun cas engager la responsabilité de 
Hewlett-Packard ou de PPC Paris. Hewlett-Packard 
se réserve le droit de ne pas répondre aux questions 
concernant le sujet de certains articles. 


Les programmes publiés peuvent être utilisés 
librement. Cependant, ils ne peuvent être vendus ou 
fournis dans un ensemble commercialisé, sous 
quelque forme que ce soit, sans l'accord écrit de 
lauteur ou de PPC Paris. 


Directeur de la publication : Jacques Belin 
Numéro ISSN : 0762 - 381X 


Veuillez adresser toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex O1. 


Imprimé par Paris Copie, 4 rue Linné, 75005 Paris 











